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Burroughs Corporation believes the program described in this 
manual to be accurate and reliable, and much care has been 
taken in its preparation. However, the Corporation cannot 
accept any responsibility, financial or otherwise, for any con- 
sequences arising out of the use of this material. The infor- 
mation contained-herein is subject to change. Revisions may 
be issued to advise of such changes and/or additions. 
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PAGE 1 
INTRODUCTION 


THE 1400/83500 TRANSLATOR IS DESIGNED TO TRANSLATE 
PROGRAMS WRITTEN FOR IBM 1400 SERIES SYSTEMS TO 83500 ASSEMBLY 
LANGUAGE PROGRAMS. LANGUAGES ACCEPTABLE AS INPUT TO THE 
TRANSLATOR ARE AUTOCODERs, BASIC AUTOCODERs AND SPS» AS 
IMPLEMENTED ON THE SYSTEMS 1401» 1440» AND 1460. THE 1400/ 
B3500 TRANSLATOR IS INTENDED TO BE USED AS A TOOL IN MINIMIZING 
THE TIME AND COST OF CONVERTING PROGRAMS FROM 1400 OPERATION TO 
63500 OPERATION. ALTHOUGH TRANSLATION DOES NOT ELIMINATE ALL 
THE PROBLEMS OF CONVERSION, IT CAN BE USED EFFECTIVELY TO 
SUBSTANTIALLY DIMINISH THE PROBLEMS OF REPROGRAMMING»s CODING, 
AND KEYPUNCHING WHICH ACCOMPANY MANUAL TRANSLATIOUNe THE TOTAL 
AMOUNT OF TIME REQUIRED TO CONVERT A PROGRAM FROM THE 1400 TO 
THE 83500 USING THIS TRANSLATOR DEPENDS ON PROGRAMMING 
TECHNIQUES EMPLOYED BY THE 1400 PROGRAMMER, 


THE MINIMUM SYSTEM CONFIGURATION REQUIRED FOR USING THE 
1400/B3500 TRANSLATOR IS AS FOLLOWS! 


A, CORE 25000 CHARACTERS 
PLUS MCP REQUIREMENTS. 


Be DISK OR THE AREA REQUIRED IS DEPENDENT 
SYSTEMS MEMORY UPON SIZE OF THE INPUT DECK AND 

THE TYPE OF LANGUAGE. THESE ARE 
THE VARIABLESS 
500 SEGMENTS INITIALLY 
THE WORK FILE IS BLOCKED 1000 
1, 1 SEGMENT PER SPS STATEMENT 
2e 2 SEGMENTS PER AUTOCOVER 
STATEMENT, 
SYMDIN REQUESTED, 
1, 1 SEGMENT PER ASSEMBLER 
STATEMENT. 


Ce CARD READER 1 FOR CONTROL CARD AND SPEC 
CARD INPUT**ALSO FOR SOURCE 


PAGE 
PROGRAM INPUT IF ON CARDS, 


PRINTER 1 FOR LISTING, 


MAGNETIC TAPE 1 FOR INPUT IF 
SOURCE PROGRAM ON TAPEs 
1 FOR OUTPUT IF SYMBOLIC 
OUTPUT TAPE REQUESTEDs 


CARD PUNCH 1 FOR OUTPUT IF SYMBOLIC 
CARD DECK REQUESTEDe 


THE SOFTWARE ENVIRONMENT REQUIRES AN MCPy IN ADDITION 
THE B3500 ADVANCE ASSEMBLER MAY BE REQUESTED DURING A 
TRANSLATIONe THESE PROGRAMS ARE MAINTAINED ON THE STANDARD 


29cnan 
B3506 SYSTEMS TAPE 
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SECTION { TRANSLATOR FEATURES 


1*1. GENERAL: 


FEATURES$ 


Ae 


Be 


Ce 


De 


Ee 


Fe 


Ge 


He 


I, 


Je 


Ke 


Le 


ACCEPT AS INPUT EITHER AUTOCODERs BASIC 
AUTOCODERs OR SPS SUURCE PRUGRAMS, 

SOURCE PROGRAM MAy BE READ IN FROM CARD READER 
OR MAGNETIC TAPE, 

SOURCE PROGRAMS MAY BE STACKED ON MAGNETIC TAPE 
FOR INPUT TO THE TRANSLATURe 

THE TRANSLATOR B3500 SYMBOLIC OUTPUT MAY BE 
SPECIFIED AS PUNCHED CARDS» A SYMBOLIC MAGNETIC 
TAPE FILE LABELLED "SYMTIN"s OR A SYMBOLIC DISK 
FILE LABELLED "SYMDIN®, 

ALLOWS FOR OPTIONAL COMPILE OF THE TRANSLATED 
PROGRAM ON THE B3500 ADVANCED ASSEMBLER USING 
THE MCP ZIP COMMUNICATE. 

PROVIDES OPTIONAL INTERSPERSED LISTINGS OF THE 
1400 AND B3500 SYMBOLIC RECORDS ON OUTPUT 

PLUS AN OPTIONAL LISTING OF THE SOURCE PROGRAM 
ON INPUT, 

ALLOWS USER TO APPEND LABELS TO MACHINE LANGUAGE 
ADDRESSES USED IN THE SOURCE PRUGRAM MEMORY 
ALLOCATION AT TRANSLATE TIME THROUGH USE OF 
DEFINE "DFN”™ CARDS. 

PROVIDES ERROR FLAGS AND WARNINGS ON THE 
TRANSLATED PROGRAMS. 

SEQUENCES THE 83500 SYMBOLIC FILE IN 

INCREMENTS OF 100, 

SIMULATES 1400 COMPARISON INDICATOR 

AND OVERFLOW CONVENTIONS, 

ALLOWS FOR USER MODIFICATIONS OF 

TRANSLATOR EMITTED SUBROUTINES. 

RETAINS INTEGRITY OF 1400 CARD READER» CARD 
PUNCHs PRINTER MULTIPLE I]0 CAPABILITY AND 
EXTENDS THIS CAPABILITY TO MAGNETIC TAPE, 
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SECTION 2 INPUT CAPABILITIES 
2°1, GENERALS 


THE 1400/B3500 TRANSLATOR PROCESSES A SYMBOLIC CARD 
DECK OR CARD=IMAGE TAPE FORMATTED ACCORDING TO THE 
STANDARDS OF THE LANGUAGE@AUTOCODER, SPS» OR BASIC 
AUTOCODER. THE AUTOCODER ASSEMBLER WILL ACCEPT 
AND/OR PRODUCE A SYMBOLIC TAPE WHICH MAY CONTAIN 
MULTIPLE AUTOCODER PROGRAMS. THIS “STACKED® 
AUTOCODER TAPE IS ACCEPTABLE AS INPUT TO THE 
1400/83500 TRANSLATER, THE TAPE PRODUCED BY THE 
AUTOCODER ASSEMBLER Is UNLABELLED AND OPERATOR 
INTERVENTION THROUGH THE SPO IS REQUIRED TO READ THE 
TAPE FILEe 


2-2. CONTROL CARDS! 


THE FOLLOWING CARDS ARE REQUIRED TO INITIATE THE 
TRANSLATION OF A 1400 PROGRAM, 
? EXECUTE TR1400 
? DATAB AUTO 
SPECIFICATION CARDS CDESCRIBED IN SECTION 4) 
SOURCE PROGRAM FOR TRANSLATION COPTIONAL) 
? END 


2°34 1400 LABEL RESTRICTIONS? 


THE 1400/B3500 TRANSLATOR RETAINS THE ORIGINAL 
LABELS USED IN THE SOURCE 1400 PROGRAM. THEREFOREs 
THE APPEARANCE OF LABELS IN THE SOURCE 1400 PROGRAM 
WHICH HAVE A RESERVED MEANING TO THE B3500 ASSEMBLER 
OR ARE USED IN THE SYMBOLIC SUBROUTINES GENERATED 
BY THE TRANSLATOR MAY LEAD TO SYNTAX ERRORS DURING 
THE COMPILE CASSEMBLY) ON THE 83500. THESE RESERVED 
IDENTIFIERS ARE’ 

1x1 

1X2 

1X3 


PAGE 
BASE 


ANY LABEL CONTAINING "Xe", "Fe®, OR Re” AS ITS 
FIRST TWO CHARACTERS MAY ALSO LEAD TO LABEL 
QUALIFICATION PROBLEMS 
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SECTION 3 OUTPUT CAPABILITIES 
3=1,. GENERALS 


THE 1400/B3500 TRANSLATOR ALLOWS THE OUTPUT MEDIA 
TO BE PRINTED COPYs MAGNETIC TAPEs PUNCHED CARDS,» 
OR OISK.e THE PRINTED COPY CPROGRAM LISTING) MAY BE 
SUPPRESSED» SPECIFIED EXCLUSIVELY» OR SPECIFIED IN 
COMBINATION WITH THE TRANSLATED SYMBOLIC FILE GOING 
TO ANY ONE OF THE NTHER OUTPUT MEDIA, 


3*2, PROGRAM LISTING! 


THE 1400/B3500 TRANSLATOR PROVIDES THREE OPTIONS IN 
SPECIFYING A PROGRAM LISTINGe THE SOURCE 1400 
PRUGRAM MAY BE LISTED ON INPUT. THE TRANSLATED B3500 
SYMBOLIC FILE AND/OR THE INPUT PROGRAM MAY BE LISTED 
ON OUTPUT. SHOULD LISTING OF BOTH OF THE LATTER BE 
SPECIFIED» A LISTING OF SOURCE 1400 SYMBOLIC RECORDS 
INTERSPERSED WITH THE TRANSLATED SYMBOLIC RECORDS 
WILL BE PRODUCED. THE INTERSPERSED LISTING WILL 
PRECEDE THE LABEL FIELO OF THE SOURCE RECORD BY AN 
#e TO ENHANCE THE READABILITY UF THE LISTINGe THE 
FORMAT OF THESE LISTINGS IS SIMILAR TO THOSE 
DESCRIBED IN THEIR RESPECTIVE ASSEMBLER MANUALS.» 


3°3, 83500 SYMBOLIC ASSEMBLY FILE? 


THE B3500 SYMBOLIC ASSEMBLY FILE MAY BE RECORDED ON 
DISKs MAGNETIC TAPE» OR PUNCHED CARDSe THE LABEL ID 
FOR THE DISK FILE IS *SYMDIN® AND FOR THE TAPE FILEs 
*"SYMTIN®, THE FORMAT OF THESE FILES IS GIVEN IN THE 
B3500 ADVANCED ASSEMBLER MANUAL. 
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3°4, SYMBOLIC MODIFICATIONS 


THE B3500 SYMBOLIC PROGRAM GENERATED BY THE 
1400/B3500 TRANSLATOR MAY CONTAIN VARIOUS STANDARD 
SUBROUTINES EMITTED By THE TRANSLATOR,» THESE 
SUBROUTINES ARE GENERATED TO ACCOMODATE TRANSLATION 
OF INSTRUCTIONS WHICH WOULD BE UNWIELDY TO TRANSLATE 
INTO IN*LINE CODE. PROVISION HAS BEEN MADE FOR USER 
MODIFICATION OF THE LIBRARY OF EMITTED SUBROUTINES, 
THIS LIBRARY IS ON THE 1400/B3500 SYSTEM TAPE 

AND MUST BE LOADED BEFORE BEGINNING A TRANSLATION, 
THE IDENTIFICATION OF THE SYMBOLIC LIBRARY FILE IS 
"AUTIMG",. A LISTING OF THIS FILE APPEARS IN THE 
APPENDIX, 


THE FIRST THREE CHARACTERS OF EVERY RECORD ON THE 
AUTIMG FILE IS A SEQUENTIAL IDENTIFICATION NUMBER, 
THE SUBROUTINES TO BE EMITTED FROM THIS FILE AND 
THEIR STARTING AND ENDING IDENTIFICATION NUMBERS ARE 
LISTED BELOW. CARDS WITH AN ASTERISK IN COLUMN 4 ARE 
TREATED AS FILLER AND IGNORED DURING TRANSLATIONs 


001 THRU 099 ERROR» WARNINGs AND 
DOCUMENTATION MESSAGES 

100 THRU 120 CARD READ SUBROUTINE 

121 THRU 200 ADD"SUB SUBROUTINE 

201 THRU 220 HALT SUBROUTINE 

221 THRU 230 RESERVED CORE CONSTANTS 

231 THRU 300 COMPARE SUBROUTINE 

301 THRU 330 MOVE@CHAR*TO@RECORD= 
MARK SUBROUTINE 

331 THRU 360 MOVE SUBROUTINE 
(MOVES OVER 100) 

361 THRU 395 MOVE CHARACTERS AND 
SUPPRESS ZEROS ROUTINE 

396 THRU 505 MOVE CHARACTERS AND 


EDIT SUBROUTINE 


TO MODIFY OR REPLACE A SUBROUTINE LISTED ABOVE THE 


nr 
co 
it 


744 


771 


791 


THRU 


THRU 


770 


790 


820 


PAGE 


PRINT RUUTINE FOR OTHER 


THAN SINGLE SPACING 
PRINT ROUTINE FOR 
TRIPLE SPACING 
MULTIPLY SUBROUTINE 
DIVIDE SUBRUUTINE 
CONVERT 1400 ADDRESS 
TO DECIMAL ADDRESS 
DETERMINE CORRECT 
INDEX REGISTER VALUE 
POSITION PRINTER#NO 
TRIPLE SPACING 
POSITION PRINTER#wITH 
TRIPLE SPACING 


MAUTIMG" FILE MUST BE CONVERTED TO CARDSe THE 
DESIRED CHANGES ARE THEN MADE 10 THE CAROSe ALL 


SUBROUTINES MUST FALL WITHIN THE RANGE GIVEN ABOVE. 
WHEN CHANGES TO THE CARD DECK ARE MADE THE “AUTIMG*" 


DISK FILE IS RECREATED. 
"TRNLIB* ON THE 1400/B3500 SYSTEM TAPE TO FACILITATE 


THIS TYPE OF MODIFICATION, 


THERE IS A PROGRAM CALLED 


THE INSTRUCTIONS FOR 


8 


USING "TRNLIB" ARE GIVEN IN THE CHAPTER ON OPERATING 
INSTRUCTIONS, 


WHEN MODIFYING THE 83500 


wMOoUunow 


Al oA 
MOUNT ALLY V AP ae ue 


THE RESERVED 


CONSIDERE 


St New tee 


War 


De 


aTT 


CORE LOCATION 


17 
8e15 
16°23 
24-31 
32°39 


ac THe 
Jrc 


USE 


SYMBOLIC ASSEMBLY 


ASSEMBLED PROGRAM MUST BE 


MEMORY ALLOCATION 


INDIRECT FIELD LENGTHS 
INDEX REGISTER 1 
INDEX REGISTER 2 
INDEX REGISTER 3 
INDIRECT FIELD LENGTHS 


FILE THE 


IS GIVEN 
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4g*45 PROGRAM STACK POINTER 

86°47 HALT BREAKPOINT MASK 

48°64 EDIT TABLE 

65°71 SENSE SWITCHESS A (LAST CARD 


SWITCH)» B THROUGH Ge 


3°35, B3500 ASSEMBLE ERRORS! 


THE B3500 SYMBOLIC FILE GENERATED BY THE 1400/83500 
TRANSLATOR MAY WHEN COMPILED CASSEMBLED) GIVE SYNTAX 
ERRORS. CONDITIONS LEADING TO THESE SYNTAX ERRORS 
ARE LISTED BELOW: 


fe REFERENCE TO LABELS WITHIN NON*TRANSLATED 
MACROS. 


2¢ REFERENCE TO FILE NAMES NOT DETECTED 
BY TRANSLATOR, 


4-i, 


4=?, 


4=2=1, 
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SECTION 4 METHOD OF SPECIFICATION 


GENERALS 


THE 


THE 1460/83506 TRANSLATOR REQUIRES A SET OF 
SPECIFICATION CARDS FOR EACH 1400 PROGRAM TU GE 
TRANSLATED. THERE ARE TWO TYPES OF SPECIFICATION 
CARDS REQUIRED BY THE TRANSLATOR» DOLLAR SIGN CARDS 
AND DEFINE CARDS. 


DOLLAR SIGN CARD? 


THE DOLLAR SIGN CARD RECEIVES ITS NAME FROM THE "8" 


IN CARD COLUMN ONE USED TO IDENTIFY ITe THE 
1400/B3500 TRANSLATOR DOLLAR SIGN CARD 1S USED FOR 
DESIGNATION OF INPUT OUTPUT MEDIA AND 1400 PROGRAM © 
PARAMETERSs IF THERE ARE MULTIPLE "S$" CARDS ONLY THE 
LAST GNE 1S CONSIDERED. THE DOLLAR SIGN CARD 


IS A FREE FORM SPECIFICATION CARD,» 


INPUT OUTPUT MEDJA DESIGNATIONS? 


THE INPUT QUTPUT MEDIA DESIGNATION OPTIONS ARE 
LISTED BELOW WITH MUTUALLY EXCLUSIVE OPTIONS LISTED 
ON THE SAME LINEe ITF MORE THAN ONE OF THESE MUTUALLY 
EXCLUSIVE OPTIONS APPEARS ON A DOLLAR SIGN CARD ONLY 
THE LAST IS CONSIDERED. THE DEFAULT OPTIONS ARE 
INDICATED IN PARENTHESES, 


ly CARDIN TAPEIN CCARDIN ASSUMED IF 
NEITHER IS SPECIFIED). 

2e CARDOT TAPEOT DISKOT CNO FILE IS 
GENERATED IF NO FILE IS SPECIFIED). 

3, LISTINPUT CASSUMED OFF ON DEFAULT). 

4, 1400 CASSUMED OFF ON DEFAULT). 

5a B3500 CASSUMED OFF ON DEFAULT). 

6, ASSEMBLE (NO ASSEMBLE ON DEFAULT). 
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THE INPUT MEDIA OPTIONS» CARDIN AND TAPEINs SPECIFY 
THE INPUT MEDIA FOR THE SOURCE 1400 PROGRAM. CARDOT> 
TAPEOTs» AND DISKOT LIKEWISE SPECIFY THE OUTPUT MEDIA 
FOR THE TRANSLATED B3500 SYMBOLIC ASSEMBLY FILE. THE 
APPEARANCE OF LISTINPUT ON THE DOLLAR SIGN CARD 
CALLS FOR LISTING OF SOURCE PROGRAM ON INPUT, 1400 
AND B3500 ON THE DOLLAR SIGN CARD INDICATE LISTING 
OF THE REARRANGED 1400 CODE AND THE 83500 SYMBOLIC 
OUTPUT RESPECTIVELY. IF BOTH 1400 AND 83500 APPEAR 
ON THE OOLLAR SIGN CARD AN INTERSPERSED LISTING WILL 
BE PRODUCED. 


IF THE *"ASSEMBLE*® OPTION IS SPECIFIED THE TRANSLATOR 
WILL "ZIP" TO THE ADVANCED ASSEMBLER FOR A 
COMPILATION TO LIBRARY OF THE 83509 SYMBOLIC 
RECORDS. THE ID OF THE ASSEMBLED PROGRAM IS SET TO 
THE ID SPECIFIED FOR THE PROGRAM ON THE DOLLAR 

SIGN CARD, IF NO IN TS SPECIFIED THE PROGRAM 

WILL BE ASSEMBLED UNDER THE ID "Xx", 


4"2"2, 1400 PROGRAM PARAMETERS: 


THERE ARE ESSENTIALLY FOUR 1400 PROGRAM PARAMETERS 
WHICH MUST BE FURNISHED TO THE 1400783500 
TRANSLATORe THESE PARAMETERS ARE LISTED BELUW WITH 
MUTUALLY EXCLUSIVE OPTIONS APPEARING ON THE SAME 
LINEs THE DEFAULT OPTIONS ARE INDICATED IN 
PARENTHESES. 


i, "XXXXX" CON DEFAULT» ID = SPACES). 

26 AUTO SPS BASIC CAUTOCODER ASSUMED 
IF NONE SPECIFIED). 

3 1401 1440 1460 (1401 ASSUMED IF 
NONE SPECIFIED), 

4, BYPASS COFF ON DEFAULT). 


THE PARAMETER REPRESENTED BY "XXXXX" IS THE PROGRAM 
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IDENTIFICATION FOR THE 1400 PROGRAM AND THE 
TRANSLATED 83500 ASSEMBLY PROGRAM, THIS PARAMETER 
MUST BE CODED AS A FIVE CHARACTER IDENTIFIER 
ENCLOSED IN QUOTES. THE PARAMETERS AUTO» SPS» AND 
BASIC INDICATE THE LANGUAGE THE 1400 PRUGRAM IS 
CODED INS AUTOCODER, SPS» GR BASIC AUTOCODER 
RESPECTIVELY. 1401+ 1440» AND 1460 SPECIFY WHICH OF 
THE THREE SYSTEMS THE 1400 PROGRAM WAS DESIGNED 
TO RUN UN, BYPASS IS A SPECIAL PARAMETER WHICH IS 
APPLICABLE ONLY WHEN TAPE INPUT HAS BEEN SPECIFIED. 
WHEN BYPASS IS SET ON» THE TRANSLATOR BYPASSES THE 
REMAINDER OF THE SPECIFICATION CARDS CIF 
SPECIFICATION CARDS ARE PRESENT) FOR THAT PROGRAMs 
POSITIONS THE INPUT TAPE AT THE BEGINNING OF THE 
NEXT PROGRAM» AND BEGINS READING SPECIFICATION 
CARDS FOR THE NEW PROGRAM, THE PROGRAM BYPASS 
FEATURE HAS BEEN IMPLEMENTED TO PERMIT SELECTIVELY 
TRANSLATING PROGRAMS FROM A STACKED INPUT TAPE. 


DEFINE CARD? 


THE DEFINE CARD IS A CODING CONVENTION IMPLEMENTED 
IN THE 1400/B3500 TRANSLATOR TO SERVE TWO BASIC 
PURPOSES. FIRST@ THE DEFINE CARD IS USEUV TO PASS 
INFORMATION TO THE TRANSLATOR ABOUT THE PERIPHERALS 
USED BY THE PROGRAM TQ BE TRANSLATED AND, SECOND= 
THE DEFINE CARD IS USED TO EQUATE A LABEL TO A BLOCK 
NF MEMORY IN THE 1400 PROGRAM. THE DEFINE CARD IS 
PUNCHED IN THE STANDARD FORMAT OF SPSe ONE DEFINE 
ENTRY IS REQUIRED FOR EACH IeO DEVICE USED BY THE 
1400 PROGRAM, THE FORMAT OF THE DEFINE CARD IS GIVEN 
BELOW. 


DEFINE CARD ENTRIES WHICH ARE INTENDED TO APPEND A 
LABEL TO A BLOCK OF MEMORY CONTAIN ALL BLANKS 
EXCEPT: 
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COL 08°13 ANY LABEL 
COL 14*16 LITERAL *0FN* 


COL 17"21 STARTING LOCATION OF 
AREA TQ BE DEFINED 

COL 28°32 ENDING LOCATION OF 
AREA TON BE DEFINED 


NOTES 


THE PURPOSE OF THE AREA=DEFINING ENTRY IS TU EQUATE 
1400 PROGRAM AREAS WHICH HAVE BEEN ADDRESSED 
EXCLUSIVELY IN MACHINE LANGUAGE TO A LABEL SO THEY 
MAY BE TRANSLATED, THE TRANSLATOR WILL CREATE A DATA 
DECLARATION CCNST) FOR EACH LABEL SO DEFINED. THUS 
ALL MACHINE LANGUAGE REFERENCES TO THIS AREA WILL 

BE TRANSLATED TO THE FORMAT LABEL + INCREMENTe THIS 
FUNCTION MAY ALSO BE USEFUL WHERE EQU OR DS 
STATEMENTS HAVE BEEN USED TO EQUATE AUTOCODER OR SPS 
LABELS TO MACHINE LANGUAGE ADDRESSES WITHOUT 
RESERVING CORE. IN THIS CASE THE "DFN® ENTRY WILL 
CAUSE A DATA DECLARATION TO BE INSERTED IN THE 
PROGRAM. SUBSEQUENT DS OR EQU STATEMENTS REFERENCING 
MACHINE LANGUAGE ANDRESSES WITHIN THIS DEFINED AREA 
WILL THEN BE EQUATED TO THE ®"DEFINEO® LABEL PLUS 

AN APPROPRIATE INCREMENT. IN THIS WAY REFERENCE TO 
THE EQU OR OS LABELS MAY BE PROPERLY TRANSLATED. 


DEFINE CARD ENTRIES WHICH DEFINE FILES ARE FORMATTED 
AS FOLLOWS! 


COL 08913 ANY RESERVED FILE NAME 

COL 14°16 LITERAL "DFN* 

COL 17"21 STARTING LOCATION OF 
FILE I*0 AREA 

COL 28°32 ENDING LOCATION OF 
FILE I*0 AREA 

COL 40°45 FILE LABEL 10 


PAGE 14 


Bette 

THE RESERVED FILE NAME MENTIONED ABUVE MUST BE 

FORMATTED AS FOLLOWS? 
THE FIRST TWO CHARACTERS IDENTIFY THE DEFINE CARD 
TO BE DEFINING A FILE AND MUST BE CNDED AS "Fa", 
CHARACTERS 3°5 OF THE FILE NAME ARE THE 83500 
HARDWARE MNEMONIC DESIGNATION FOR THE PERIPHERAL 
DEVICE ASSOCIATED WITH THE FILEsI.Ee 

MTP = MAGNETIC TAPE 


OSK = DISK 
CRD = CARD READER 
CPU = CARD PUNCH 


PRN = PRINTER 
THE LAST CHARACTER IN THE FILE NAME IS THE 1400 
LOGICAL UNIT NUMBER OF THE I=0 DEVICE. 


4-4, THE DEFINE END CARD3 


EACH SET OF PROGRAM SPECIFICATION CARDS CDOLLAR 
SIGN AND/OR DEFINE CARDS) MUST BE FOLLOWED BY 

A DEFINE END CARDe THE DEFINE END CARD CTDENTIFIED 
BY “DFE* IN COLUMNS 14°16) IS USED TO TERMINATE 
READING OF SPECIFICATION CARDS AND INITIATE 
PROCESSING OF THE 1400 PROGRAM FROM EITHER CARDS 
OR MAGNETIC TAPE. 


4-5e SPECIFICATION CARD ORDERS 


THE ORDER OF PROGRAM SPECIFICATION CARDS IS AS 
FOLLOWS: 
Ae DOLLAR SIGN CARDCS). IF MORE THAN ONE IS 
PRESENT GNLY THE LAST ONE IS EFFECTIVE. 
Be DEFINE CARDCS). 
Ce THE DEFINE END CARD. 
IF THE 1400 PROGRAM TQ BE TRANSLATED IS TO 8E 


INPUTTED FROM THE CARD READER THE PROGRAM 


PAGE 
DECKCS) MUST IMMEDIATELY FOLLOW ITS RESPECTIVE 
PROGRAM SPECIFICATION CARDSe THERE IS NO SPECIAL 
CARD REQUIRED TO INDICATE END OF TRANSLATOR 
INPUTe THIS FUNCTION IS SIMULATED THROUGH THE 
NORMAL END OF FILE ACTION ON THE CARD READER, 
THE 1400 LANGUAGE END CARD SIGNALS THE END OF 
THE INPUT SYMBOLIC DECKs IT MUST BE PRESENT 
FOR EACH SYMBOLIC DECK TO BE TRANSLATED+. 
IN FILLING OUT PROGRAM SPECIFICATION CARDS IT 


SHOULD BE REMEMBERED THAT WHILE NO "DFN® CARDS ARE 


REQUIRED BY THE TRANSLATOR» THE TRANSLATOR OOES 
REQUIRE AT LEAST ONE "$8" CARD AND ONLY ONE “DFE® 
CARD IN EACH SET OF PROGRAM SPECIFICATION CARDS. 


15 
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SECTION S FUNCTIONAL DESCRIPTION 


S"1, GENERALS 


THE 1400/B3500 TRANSLATOR IS A FIVE PHASE PROGRAM 

TO TRANSLATE AUTOCODERs BASIC AUTOCODERs OR SPS AS 
WRITTEN FOR THE IBM SERIES 1401» 1440s OR 1460 
SYSTEMS TO 83500 ASSEMBLY LANGUAGE. THE 1400/83500 
TRANSLATOR IS PROGRAMMED TO RUN ON THE 83500 SYSTEM. 
THE FUNCTION OF EACH OF THE PHASES OF THE TRANSLATOR 
IS DESCRIBED BELOW. 


5°20 PHASE 13 


THE FIRST PHASE OF THE 1400/83500 TRANSLATOR 
CONVERTS THE INPUT PROGRAM TO A FIXED FORM 
SPS*LIKE LANGUAGE WHICH IS THEN UTILIZED 
INTERNALLY FOR TRANSLATION. AN OPTIONAL 
LISTING OF THE INPUT PROGRAM IS AVAILABLE AT 
THIS TIME. 


373. PHASE 23 


THE SECOND PHASE OF THE TRANSLATOR PASSES THE 
INTERNAL REPRESENTATION OF THE INPUT PROGRAM 

CREATED BY PHASE 1 AND BUILDS A MAP OF THE 

1400 MEMORY ALLOCATION PLUS A LABEL TABLE. THE LABEL 
TABLE CONTAINS AN ENTRY FOR EACH LABEL IN THE SOURCE 
PROGRAM PLUS ANY LABELS GENERATED BY THE TRANSLATORe 
PHASE 2 APPENDS TO EACH ENTRY IN THE LABEL TABLE 
INFORMATION REQUIRED IN LATER PHASES OF TRANSLATION. 


5°4, PHASE 33 


PHASE 3 DOES A LOOKUP ON THE LABEL TABLE FOR EACH 
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AND AFFIXES PERTINENT INFORMATION IN THE LABEL TABLE 
TO THE LABEL REFERENCE. THIS IS DONE TO DETERMINE 
INFORMATION ABOUT THE ADDRESSES REFERENCED IN EACH 
INSTRUCTIONe THE THIRD PHASE ALSO UPDATES THE MEMORY 
MAP BUILT IN PHASE 2 WITH WORD MARKS IMPLIEU BY 
INSTRUCTION LOCATIONS AND DATA DEFINING STATEMENTS» 
THIS MAP OF MEMORY ALLOCATION PLUS WORD MARK 
LOCATIONS IS THEN WRITTEN TO DISK, 


5°5, PHASE 43 


THE FOURTH PHASE OF TRANSLATION PASSES THE INTERNAL 
SOURCE PROGRAM AND APPENDS FIELD LENGTHS TO THE 
ADDRESSES REFERENCED BY EACH INSTRUCTION, THIS IS 
DONE ONLY WHERE IT IS DETERMINED THE QUTPUT B3500 
INSTRUCTION WILL REQUIRE FIELD LENGTHS AND 15 
ACCOMPLISHED BY ANALYZING WORD MARK LOCATIONS IN 
THE PREVIQUSLY CONSTRUCTED MEMORY MAP, 


NOTES 


IT SHOULD BE REMEMBERED THAT THE 1400/B3500 
TRANSLATOR DOES NOT SIMULATE THE LOGIC FLOW OF THE 
SOURCE PROGRAM BUT RATHER TRANSLATES EACH 
INSTRUCTION AS ENCOUNTERED IN THE INPUT PROGRAM, 
THEREFORE SWs CW AND OTHER INSTRUCTIONS WHICH AFFECT 
WORD MARK LOCATIONS WILL CHANGE WORD MARKS IN 

THE TRANSLATOR MEMORY ALLOCATION SCHEME AS 
ENCOUNTERED IN THE INPUT PROGRAM. THE EXTENT TO 
WHICH THIS AFFECTS THE COMPLETENESS OF TRANSLATION 
Is DEPENDENT UPON THE PROGRAMMING TECHNIQUES 
EMPLOYED, 


5"6— PHASE 53 


THE FIFTH PHASE OF THE TRANSLATOR TAKES THE 
INTERNAL REPRESENTATION OF THE 1400 PROGRAM AS 
UPDATED BY THE PREVIOUS PHASES OF TRANSLATION 


AND PRODUCES 683500 SYMBOLIC CO 
ALSO PRODUCES THE OPTIONAL INT 
DESCRIBED IN PARAGRAPH 4=2=1, 


E 


nm 
ULe 
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SECTION 6 OPERATING INSTRUCTIONS 


6"1,. GENERAL! 


19 


OPERATING INSTRUCTIONS FOR THE 1400/B3500 TRANSLATOR 
ARE SUBDIVIDED INTO TWO CATEGORIES$ THE INSTRUCTIONS 
NECESSARY TO EFFECT THE ACTUAL RUNNING OF THE 
TRANSLATOR PROGRAM AND THE INSTRUCTIONS REQUIRED FOR 
MODIFYING THE LIBRARY OF TRANSLATOR EMITTED WARNING 
MESSAGES AND SUBROUTINES, 


672. TRANSLATION: 


IN ORDER 


TO RUN THE 1400/B83500 TRANSLATOR THE 


FOLLOWING STEPS SHOULD BE FOLLOWED: 


A. 


Ce 


De 


Ee 


FILL OUT PROGRAM SPECIFICATION CARDS AS 
OUTLINED IN SECTION 4. 

MOUNT THE AUTOCODER INPUT TAPE IF TAPE 
INPUT HAS BEEN SPECIFIED. 

PREPARE THE EXECUTE DECK AS SPECIFIED 
IN PARAGRAPH 2°2, THE OPTIUGNAL 1400 
SOURCE PROGRAM DECK MUST NOT BE PRESENT 
IF TAPE INPUT HAS BEEN SPECIFIED. 

PLACE EXECUTE DECK IN CARD READER AND 
READ, 

IF TAPE INPUT HAS BEEN SPECIFIED FUR 
THE PROGRAM(S) TO BE TRANSLATEO THEN 
IMMEDIATELY FOLLOWING THE READING OF 
THE PROGRAM SPECIFICATION CARDS THE 
FOLLOWING MESSAGE WILL APPEAR UN THE 


SPO = "NO FILE AUTOTP TR1400 (MIX INDEX)", 


THE OPERATOR SHOULD THEN SPECIFY THE UNIT 
ON WHICH HE HAS MOUNTED THE INPUT TAPE BY 


KEYING IN THE FOLLOWING? 


CMIX INDEX) UL CI*°O CHANNEL NO)/CUNIT NOD. 
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F, IF QNE OR MORE PROGRAMS HAVE SPECIFIED 
SYMBOLIC TAPE "SYMTIN® QUTPUT THE OPERATOR 
MUST MAKE AVAILABLE TO THE SYSTEM A 
SCRATCH TAPE EACH TIME THE SPO MESSAGE 
TMT RQD SYMTIN TRLGOO (MIX INDEX)* 
APPEARS» 
G, IF MORE THAN ONE PROGRAM CALLS FOR A 
SYMBOLIC DISK FILE *SYMDIN® AS OUTPUT 
A "DUPLICATE LIBRARY" MESSAGE WILL BE 
DISPLAYED ON THE SPO EACH TIME A NEW 
*SYMDIN" FILE IS CREATED CEXCEPT FOR 
THE FIRST TIME THE FILE IS CREATED). 
THIS MESSAGE TAKES THE FORM OF 
"DUP LIBRARY SYMDIN TR1400 (MIX INDEX)" 
IF THE EXISTING "SYMDIN® FILE IS NOT IN 
USE THE GPERATOR SHOULD CHANGE IT TO A 
NEW NAME» EeoGe KEY IN 
"CC CHANGE SYMDIN TO NEWID" 
AND THEN KEY IN 
*C(MIX INDEX) OK", 
H. UPON TRANSLATING THE FINAL PROGRAM THE 
TRANSLATOR WILL GO TO A NORMAL END OF JOBe 


693, LIBRARY MODIFICATION? 


IT IS ANTICIPATED THAT SOME USERS OF THE 1400/783500 


TRANSLATOR MAY DESIRE TO MODIFY OR ADD TO THE 
LIBRARY OF TRANSLATOR GENERATED SUBROUTINES TO 
FACILITATE TRANSLATION OF PROGRAMS WHICH EMPLOY 
SPECIALIZED 1400 PROGRAMMING TECHNIQUES. PROVISION 
HAS BEEN MADE FOR SUCH MODIFICATION AS EXPLAINED IN 
PARAGRAPH 3=4. THE OPERATING INSTRUCTIONS FOR 
EFFECTING SUCH A MODIFICATION FOLLOW. 


Ae LOAD FROM THE "AUTSYS" SYSTEM TAPE 
THE AUTIMG (SYMBOLIC CARD) FILE AND THE 
PROGRAM TRNLIBs EoGe KEY IN SPO 


By 


Ce 


De 


Es 
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"CC LOAD FROM AUTSYS AUTIMGs TRNLIB*, 
EXECUTE PROGRAM CALLED TRNLIB»s E,G, 
KEY IN SPO 
"CC EXECUTE TRNLIB*, 
IMMEDIATELY FOLLOWING BOJ TRNLIB WILL 
DISPLAY THE FOLLOWING MESSAGE ON THE SPO? 
"DUMP»sCREATEsDUMP AUT»CREATE AUT» 
DUMP SOLT OR CREATE SOLT® 
THIS MESSAGE INDICATES THE POSSIBLE 
USES OF TRNLIB, 
THE PROGRAM TRNLIB WILL THEN WAIT ON AN 
ACCEPT STATEMENT. SINCE THE PURPOSE OF 
THIS RUN IS TO OBTAIN A CARD DECK PLUS 
LISTING OF THE AUTIMG DISK FILE, 
KEY IN SPO 
"CMIX INDEX) AXDUMP AUT, 
AFTER PRODUCING A CARD DECK PLUS LISTING 
OF THE AUTIMG FILE TRNLIB WILL GO TO A 
NORMAL END OF JOB. 
AT THIS POINT THE PROGRAMMER IS READY TO 
INSERT HIS OWN MODIFICATION INTO THE 
SUBROUTINES. THE FORMAT OF THE CARDS IN 
THE AUTIMG FILE SUBROUTINES IS THE SAME 
AS THE STANDARD B3500 ADVANCED ASSEMBLER 
REQUIRES EXCEPT: 
is POSITIONS 1*3 CONTAIN THE SEQUENCE 
NUMBER OF THE CARO WITHIN THE AUTIMG 
FILE. 
26 POSITIONS 4"7 ARE BLANK, 


NOTE! 


AREA WITHIN THE SYMBOLIC 

SUBROUTINES IS OFTEN RESERVED FOR 
MODIFICATION BY INSERTING BLANK 
FILLER CARDS WITHIN THE SUBROUTINES. 
THESE BLANK FILLER CARDS ARE 
IDENTIFIED BY AN ASTERISK IN 


Fe 


Ge 


He 


NOTE? 
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COLUMN 4, 
SEQUENCE NUMBERS FOR MODIFYING THE 
AUTIMG SYMBOLIC FILE SHOULD BE OBTAINED 
BY EXAMINING THE LISTING OF THE FILE 
PRODUCED BY TRNLI8 IN CONJUNCTION WITH THE 
GUIDELINES FOUND IN PARAGRAPH 34 UN 83500 
SYMBOLIC MODIFICATIONe 
WHEN THE PROGRAMMER HAS FINISHED MUDIFYING 
THE AUTIMG DECK AND IS PREPARED TO 
RECREATE THE AUTIMG DISK FILE HE SHOULD 
1. EXECUTE TRNLIB AS EXPLAINED IN 
PARAGRAPH 6°3"B. 
2. KEY IN SPO 
"CMIX INDEX) AXCREATE AUT® 
AS PER 673°C. 
3e PLACE NEW AUTIMG CARDS IN REAVER 
PRECEDED BY A *DATAB GENCRD® CONTROL 
CARD AND TERMINATED BY AN “ENDS 
CONTROL CARD. 
UPON CREATING THE NEW AUTIMG FILE TRALIB 
WILL WAIT ON A "DUPLICATE LIBRARY® 
CONDITION. THE OPERATOR SHOULD REMUVE 
THE OLD AUTIMG FILE BY KEYING IN SPO 
mCMIX INDEX) RM, 
TRNLIB WILL THEN GO TU A NURMAL END 
OF JOB. 


IF IT IS DESTRED TO CREATE A NEW SYSTEM TAPE AFTER 
UPDATING "AUTIMG™, NORMAL PROCEDURES FOR LOADING AND 
DUMPING FILES SHOULD BE FOLLOWED.» IN THIS INSTANCE> 
PRIOR TO RUNNING TRNLIB THE ENTIRE 1400/B3500 SYSTEM 
TAPE SHUULD BE LOADEDS EeGe AT REFERENCE 6°3°A KEY 


IN SPO 


"cC LOAD FROM AUTSYS /e* 
WHEN THE NEW AUTIMG FILE HAS BEEN CREATED A WEN 


PAGE 
AUTSYS SYSTEM TAPE MAY BE CREATED THROUGH USE OF 
THE MCP DUMP OPTIONe THE PROGRAMS AND FILES ON 
THE SYSTEM TAPE CAUTSYS) ARES 
TR1400 1400 TO B3500 TRANSLATOR 
TRNLIB UTILITY PROGRAM 
AUTIMG SUBROUTINE FILE 
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APPENDIX 


Ami. TRANSLATOR EXECUTE DECKS 


? EXECUTE TR1400 

? DATAB AUTO 

$TAPEIN LISTINPUT 

S$TAPEIN BYPASS 

S$TAPEIN LISTINPUT 1400 83500 DISK "IDENT® 


F*PRNIDFNOO201 00333 PRTLIN 
F*CPUIDFNOO101 00180 PUNCH 
F*CRDIDFNOOOOS 00080 CARDS 
DFE 
CIF CARO INPUT HAD BEEN SPECIFIED A SOURCE 
PROGRAM DECK WOULD BE INSERTED HERE). 


? END 
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0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0028 
0029 
0030 
0031 
0032 


nest 


CNOT 


kkkekkan T 
kkkkkhke 


kkk hkk 
kkkkkhik 
Rk EEK 
kkk KKK 
KeKKKEK 
kkk KEK 
KER EEK EK 
Rake kk kke 
keke 
Re KEE 
kkk kk 
Pere rer S| 
Keke K 
kkkkk KS 
Reh ek 
kkkkkeee 
RkakEK KS 
kkkhhe ee 
RkkKKEKE 
tok kk kk 
kkkkkhik 
Hkh kk tok 
keKEE REE 
ReRKKNKE 
kek kkk 
kEKRE KES 
Keke kk kkk 
KkKRKEKE 
kaKKE KES 


eekkkkke 
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"AUTIMG” FILES 


Es LAST EIGHT COLUMNS ARE NOT LISTED HERE), 


HE ABOVE INSTRUCTION HAS BEEN DELETED 
UNIDENTIFIED OP=CODE oR NON@TRANSLATED BRANCH OPTION * 
NON=TRANSLATED #=/0 COMMAND kk tik k 
STACKER SELECT NOT TRANSLATED NO EFFECT ON PROGRAM * 
A*ADDR AFFECTS WORD MARK IN CODE = POSSIBLE LOGIC ERROR = 
A™ADOR IS DATA @ OK UNLESS DYNAMIC FIELD SIZE ADJUSTMENT= 
B=ADDR AFFECTS WORD MARK IN CODE = POSSIBLE LOGIC ERROR = 
B*ADDR IS DATA = OK UNLESS DYNAMIC FIELD SIZE ADJUSTMENT= 
NON@TRANSLATED = INTENT NOT DETERMINED 
SBR TO BRANCH ZERU = ASSUMED SUB©ROUTINE LINKAGE = = «x 
INSTRUCTION MODIFICATION == RESULTS PROBABLY INCORRECT #x% 
CODE CHARACTER USED AS DATA = PROBABLY INCORRECT == 
A*ADDR IS M/L NOT DEFINED= INSERT PROPER A*ADDRESS == 
BeADOR IS M/L NOT DEFINED = INSERT PROPER B=ADDRESS «= * 
MISSING A*ADDR OR NON TRANSLATED A CHAIN@INSERT A LABEL 
MISSING B#ADDR OR NON TRANSLATED B CHAIN@INSERT B LABEL 


Kkkkkk&kkikak 


* 


* 


* 


ADDRESS CONSTANT IS MACHINE LANGUAGE © NOT DEFINED * 
EQUATE FOR AN X*CONTROL OPERAND = PROBALLY NOT NEEDED == «& 
EQUATE OF A NON DEFINED MACHINE LANGUAGE ADDRESS * 
LCA USED IN CONJUNCTION WITH MCE == NOT NEEDED «= * 
LCA NOT FOUND FOR THIS MCE = INSERT PROPER B ADDRESS «= »& 


NON TRANSLATED BRANCH IF INDICATOR PROBALLY ERROR BRANCH « 
UN*LABELED DA FIELD OR SUB=FIELD = NOT REQUIRED * 
NON TRANSLATED WM=BRANCH EITHER INDEXED OR ABSOLUTE ZERO * 
WARNING = DSA ADDRESS INCREMENT MAY BE INCORRECT * 
MOD 16000 COMPLIMENT ADORESS ASKED FOR = CHECK REFERENCE «* 
INCREMENTED BRANCH = LOCATION NOT FOUND & INCORRECT ADOR 


+ 


BRANCH TQ DATA AREA = CQDE PROBALLY INCORRECT «=== * 
INDEXED BRANCH = INDEX REGISTER VALUE PROBALLY INCORRECTe* 
ARANCH TO ZERO == ASSUMED SUBROUTINE EXIT * 
BRANCH TO SBR = ASSUMED SUBROUTINE ENTRY = * 
INSTRUCTION MODIFICATION == RESULTS PROBALLY OK * 


>) 
bot 
Lt, 
w 


0034 
0035 
0036 
0037 
0038 
0039 
0040 
0041 
0042 
0043 
0044 
0045 
0046 
0047 
0048 
0049 
0050 
0051 
0052 
0053 
0054 
0055 
0056 
0057 
0058 
0099 


oO 
© 
L? 
«> 


°o 
© 
o 
_ 


0062 
0063 
0064 
0065 
0066 
0067 
0068 
0069 


BRR ARRAS 


Rakha 


khkekkkkk 


kekkkkkk 


Reka REK 


kakkkkkik 


kkekkhhik 


kkekkkeek 


kikkkeeke 


kkkkkkak 


RKEKKKRAE 


wkkkkkkik 


kekkakkk 


BRANCH ADDRESS» ERROR BRANCH ADDRESS AS REGDs IF 16 
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ATEMENTS NOT TRANSLATED = PUSSIBLE LOCATION ERROR * 
SEGMENTATION UF CODE IS PROVIDED HERE» HOWEVER» THE POINT* 
WHERE OVERLAYING IS ACCOMPLISHED MUST BE DETECTED ANO THE® 
PROPER GVERLAY CODE INSERTED DEPENDING ON THE ASSEMBLER * 
TO BE USED. 


REE RRA Rae a eRe ik Re 


SKIP TO CHANNEL i2 MUST BE CHANGED TO ANOTHER CHANNEL * 
LITERAL TRUNCATION@ LIT SIZE TOO LARGE FOR PARAMETER * 
ADD OR SUK OF 1400 ADDRESS CONSTANT INVALID ON B3500 * 


THIS NOP (MORE THAN ONE*ADDRESS) HAS NO B3500 EQUIVALENT 


* 


NON@TRANSLATED I@0 COMMAND ACTION DEPENDENT ON SYSTEM t 
WRITE DISK CHECK IS HARDWARE DEPENDENT@LIKELY NOT NEEDED * 
SCAN DISK HARDWARE DEPENDENT © PROVIDE SUBROUTINE ig 
SEEK DISK REQUIRES ARM MNVEMENT = NOT NEEDED * 
"GET" AND "PUT" REQUIRE MANUAL CORRECTIONe INSERT FILE NAM 


ENTRY SPECIFI 


AREA OTHER THAN THE RECORD AREA ADO THE APPROPRIATE WMOVE™ INSTRUC 


kheekakke 


kkkhkakhk 


reeds 


ktkkhkkkk 


kaeekankek 


kkk ek 


kw kkkkkk 


reve keeee 


khktkkkkkn 


kRkekekkikk 


kik kkk a % 


ekkkkkekk 


kkkkkkekk 


kekkkkknk 


kkkkkkikk 


kkk kkkKE 


keke DISK FILE 


THE PRECEDING DISK COMMAND REQUIRES THE FOLLOWINGS 


ie THE NAME OF THE APPROPRIATE FILE IN COLUMN 223 
2e A 6=CHARACTER LABEL IN COLUMN 34 DESIGNATING A 
LOCATION TO BRANCH TO AT END@OF*FILE ON DISK$ 
THE EOF LABEL IS OPTIONAL. IF IT IS OMITTED» AN 
END@*OF™FILE CONDITION WILL RESULT IN A 
NON@RECOVERABLE SITUATION DESIGNATED ON THE SPO 
BY THE MCP AS "EOF == NO LABEL", 
FOR QUTPUT DISK FILES» END*OF*FILE MEANS THAT 
ALL REQUESTED DISK AREAS HAVE BEEN FILLED. 
DISK WORD*MARK FORMAT NOT COMPATIBLE WITH THE B3500 * 
TYPE OF DISK I/O == SECTOR MODE * 
TYPE OF DISK 1/0 *= FULL TRACK RECORD * 
TYPE OF DISK 1/0 == SECTOR MOVE WITH COUNT OVERLAP * 
TYPE OF DISK 1/0 == TRACK SECTORS WITH ADDRESSES * 
TYPE OF DISK 1/0 == TRACK RECORDS WITH ADDRESSES * 


REGRGANIZATIGN PROBABLY NECESSARY + 
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0070 
0071 
0072 
0073 
0074 
0075 
0076 
0077 
0078 
0079 
0080 
0081 
0082 
0083 
0084 
0085 
0066 
0087 
0088 
0089 
0090 
0091 
0092 
0093 
0094 
0095 
0096 
0097 
0098 
0099 
0100 
0101 CARD READ ROUTINE 
0102 
0103 
0104 X#R MVW R*CRD R*CRD1 CURRENT RECORD 
0105 READ F*eCRDY X*ECRD READ NEXT RECOR 
3106 EXT RETURN TQ PROGR 


0107 
0108 
0109 
0110 
O1li+ 
Oili2d* 
O113* 
O114* 
0115» 
0116* 
O117* 
0116 
0119*% 
0120* 
0121 


012 


0123 
0124 
0125 
0126 
0127 
o128 
0129 
0130 
0131 
9132 
0133 
0134 
0135 
0136 
0137 
0138 
0139 
0140 
0141 
0142 
0143 


MVN 
EXT 


XWACHNDEC 


DEC 
DEC 
DEC 


MVN 
MVA 
ADD 


INFL 


MVN 
MVN 
ADD 
INC 
DEC 
SDE 
GTR 
MVN 


INFL 


kairk 


x 


or © NN = 


183 BASE 
183 BASE 
203 BASE 
203 ASE 
173 +9 
93UABASE 
NLBASE 
32 BASE 
DP2S3TAX*WRKI 
NLX#*WRK1I 
183 BASE 
183 +A 
NL+A 
BASE 
26 
NLX#*WRK 1 
34 BASE 
PRILAX#WRE? 


NLX*SWA 


223 «+A 12 


13 


UN 
36 
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SET SENSE SWITC 
RETURN TU PROGR 


FIND CHAINED A# 


FIND CHAINED Be 


SET PROPER OPSC 


STORE INO, FLD 


ADO 1 TO BeFIEL 


STURE AwFIELD 
SET PLUS SIGN 


FIND A@FIELD LS 


IS A*FLD LSD SI 
BRANCH IF NOT 
SET MINUS SIGN 


nm 


TORE BeFIELD 


0144 
0145 
0146 
0147 
0148 
0149 
0150 
0151 
0152 
0153 
0154 
0155 
0156 
0157 
0158 
0159 
0160 
0161 
0162 
0163 
0164 
0165 
0166 
0167 
0168 
0169 
0170 
o171 
0172« 
0173 
O174x% 
0175 
0176 
O1L77* 
O178«% 
0179* 
0180« 


oC 


eO 


MVN 
ADD 


INC 
DEC 
SDE 
GTR 
MVN 


CPA 
NEQ 
MVA 
MVN 
AND 
BOT 
NEQ 
MVN 
MVN 
INFL 
INC 
INFL 
MVN 


MVN 
MVN 
DEC 
ORR 
ORR 
EXT 


ic 
6BASE 


SBASE 
1 52 

16 1X*Z=B 
* 


1D 


NO Ne 


—_ 


i1 
* 
1 10 
> 6BASE 
1 17 
O110BASE 
+0 
1 0 
1 17 
BASE 
X*WRK1 
BASE 
X*WRKOQ 


6=8 
1X*WRK2 
1X*WRK2 
ic 
1X*WRK2 


Ll ol oe © | 


203 
203 


26 


26 


293 


163 


32 


NLX*WRKQ 


BASE 

+B 
NL4B 

BASE 


NLX*WRK2 


ALBASE 


ALBASE 
* 


NLBASE 


NLX*WRK2 
NLX*OFLS 
BASE 

X#WRK2 
BASE 
UNBASE 


* 
UNBASE 
UNX*OUFLS 
NLX*OFLS 
UNX*0OFL 
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UN SET PLUS SIGN 
283 +B 12. FIND B*FIELD LS 
13 
13 

IS B=FLO LSD SI 
BRANCH IF NOT 
UN SET MINUS SIGN 
28314 TEST FOR MSD BL 
BRANCH IF NOT 
283IA REPLACE WITH ZE 
30 FIND OVERFLOW Z 
X*OFLS STORE OVERFLOW 
TEST FOR ZERO@A 
BRANCH IF NOT 
SET B*WORK=AREA 
CLEAR OVERFLOW 
36 
PERFORM ADD OR 
34 
28314 STORE RESULT IN 
30 FIND B=LSD ZONE 
STORE RESULT SI 
SET STORED OVER 
“C 12 IARESTORE OVERFLO 
1 X*OFL 1 SET OVERFLOW To 


ROUTINE EXIT 


0181 
0182 
0183 
0164* 
0185* 
0186* 
0157* 
0186* 
0189* 
0190% 
O191% 
0192* 
0193« 
0194 
0195* 
0196 
0197* 
0196% 
0199* 
0200* 
0201 

0202 

0203 

0204 

0205 

0206 

0207 

0208 

0209 

0210 

0211 

0212" 
0213 
O214* 
O215* 
0216 
0217 


X#H 


oA 


SUB 2 512 
DISP13 
ACPT 2 

CPA 2 205 
NEQ +A 
STOF 

EXT 


X*HALT 
X*ACPT 


HALT ROUTINE 


NLBASE 


43 


X*#HALT 


8 
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MOVE HALT LOC T 
DISPLAY HALT 
ACCEPT REPLY 

1s It OS 

BRANCH IF NOT 
STOP RUN 


O218* 
0219 


0220 
0221 
0222 
0223 
0224 
0225 
0226 
0227 
0228 
0229 
0230 
0231 
0232 
0233 
0234 
0235% 
0236 
0237 
02382 
0239 
0240 
0241 
0242 
0243 
0244 
0245 
0246« 
O247% 
0248 
0249% 
0250 
0251 
0252 
0253 
0254 


X*HALTONST 
X*ACPTCNST 
X*#OFLSCNST 
X*OFL CNST 
XeCHI2CNST 
X*CTOGCNST 
X*Z*NOCNST 
XeZeA CNST 
X*#ZZ CNST 

CNST 

CNST 
X*Z°ABEQIV 
X*7Z-°B CNST 


X*CCHNDEC 
DEC 
X*#CHCNDEC 
DEC 


13UA 
QUA 
1UN 
3UN 
3UN 
1UN 
16UA 
16UA 
2UN 
QUN 
-45UA 


17X*2ZZ 


16UA 


HALT AT 


1234567890 #@%>>2 
/STUVWXY Zs Ba ree 
4E 
co 
ABCDEFGHI&.{(<¢ 


JKLMNOPQR=x$e)3¢ 


COMPARE SUBROUTINE 


2 SBASE 
2 SBASE 
2 SBASE 
2 SBASE 


163 
163 
183 
183 


BASE 213 
BASE 213 
BASE 273 
BASE 273 
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STORED OVERFLOW 
OVERFLOW TOGGLE 
CHANNEL 12 BOOL 
COMPARISON INDI 
NO@ZONE CHARACT 
A=ZONE CHARACT 


AB=ZONE CHARACT 
BeZONE CHARACT 


ADJUST A ADDRES 
FULL CHAIN, 

ADJUST B ADDRES 
FULL OR HALF CH 


0255 
0256 
0257 
0258 
0259 
0260 
0261 
0262 
0263 
0264 
0265* 
0266* 
0267 
0268 
0269% 


nna: 
02708 


O271* 
0272 
0273 
0274s 
0275 
0276 
0277 
0278 
0279 
0280 
0261 
0282 
0283 
0264 
0285 
0286 
0287* 
0258* 
0289 
0290 
O29i* 


X«C 


CPN 
GTR 
MVN 
INFL 
CPA 
GTR 
LSS 
MVN 
EXT 


X&XCHNDEC 


XX 


CPA 


1 


2 2BASE 


+H 


2 2BASE 


BASE 
BASE 


BRANCH=CHARACTER@*EQUAL SUBROUTINE 


52 


1BASE 
+H 
+L 


49 
ac 


BASE 


+183 BASE 


4163 BASE 
+32 BASE 
+2631 ABASE 


NLX*CTOG 


NLBASE 


+2Q3TABASE 


NLX*CTOG 
+183TA 


+163 
+32 


+32 
+203I1A 


+253 


+ 83UA 
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B LENGTH VS AL 
BRANCH IF 8 > A 
SET INDIRECT FL 
LENGTH AT ADDRE 
COMPARE A = BF 
TEST FOR 8 > A 
TEST FOR B <A 
SET COMPARISON 
EXIT COMPARE 


ADJUST CHAINED 


BeFIELD VS D=CH 
TEST B*FIELD FO 
TESF BeFIELD FO 
B°FIELD IS EQUA 
EXIT TO BRANCH] 


0292« 
0293 
0294" 
0295 
0296% 
0297 
0298 
0299 
0300 
0301 
0302* 
0303*% 
0304 
0305* 
0306 
0307 
0308 
0309 
0310 
0311 
0312 
0313 
0314 
0315 
0316 
0317 
0318 
0319 
0320 
0321 
0322« 
0323% 
0324 
0325 
0326% 
0327 
0328s 


eL 


eH 


K*M 


oA 


MVN 
SDE 
GTR 
MVN 
INC 
INFL 
MVA 
INC 
INC 
BOT 
NEQ 
EXT 


NLX*CTOG 


NLX*CTOG 
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SET COMPARISON 
EXIT WITHOUT 8R 
SET COMPARISON 
EXIT WITHOUT BR 


SUBROUTINE TO MOVE CHARACTERS TO RECORD MARK 


1 40 
200#¢ 
+A 
111 
1 31 
BASE 
BASE 
1 32 
1 32 
O110BASE 
X*M 


NLBASE 
ALBASE 


NLBASE 

NLBASE 
+38 BASE 
+1631 ABASE 

NLBASE 

NLBASE 
+36 


+36 
+163IA 


+36 
+37 
+38 
+2234 
+173 
+233 


RESET GM FLAG A 
SCAN FOR REC/M 
BRANCH IF NOT F 
SET REC/™ BOOLE 
ADD 1 TO INFL 
MOVE LENGTH AT 
MOVE A@FLOD TO B 
ADVANCE A=ADDRE 
ADVANCE B*ADDRE 
WAS REC/M FOUND 
REPEAT IF NOT 
RETURN TO MAIN 


0329 
0330% 
0331 
0332 
0333 
0334 
0335 
0336* 
0337+ 
0338 
0339% 
0340 
0341 
0342 
0343 
0344 
0345 
0346 
0347 
0346 
0349% 
0350* 
O351% 
0352" 
0353* 
0354 
0355* 


NIAAA 


Www wt 


0357*% 
0358 
0359% 
0360% 
0361 
0362 
0363 
0364 
0365 


XN 
eA 


X«aZ 


oA 
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MOVE SUBROUTINE (MOVES OVER 100) 


MVN 2 299 NLBASE 32 SET LENGTH TO 9 
MVN 5 2BASE 173 BASE 32 STORE SIZE IF N 
INFL BASE 32 BASE 32 MOVE SIZE AT AD 
MVA BASE 2231 ABASE 2831A MOVE UP T0 99 C€ 
In¢ 3 5198 NLBASE 233 ADVANCE A=ADDRE 
INC 3 5198 NLBASE 293 ADVANCE B@ADDRE 
DEC 2 SBASE 32 BASE 173 SUB NO MOVED FR 
GTR 7A REPEAT IF RESUL 
EXT EXIT MOVE ROUTI 


MOVE CHARACTERS AND SUPPRESS ZEROS SUBROUTINE 


MVN 2 2BASE +163UNBASE +36 UN SET LENGTH OF A 
INFL BASE +36 
MVA 1 ALBASE +2631A SET BeFiELD To 


0366 
0367 


0368 
0369 
0370 
0371 
0372 
0373 
0374 
0375 
0376 
0377 
0378 
0379 
0380 
0381 
0382 
0383 
0384 
0365 
0386 
0387 
0388 
0389 
0390 
0391 
0392 
0393 
0394 
0395* 
0396 
0397* 
0398 
0399 
0400 
0401 
0402 


INFL 
SDU 


GTR 
INC 
INC 
INC 
INC 
DEC 
INFL 
MVA 
INFL 
SDE 
GTR 
INC 
CPN 
EQL 
INC 
INC 
INC 
INC 
DEC 
BUN 
oY CPN 
EQL 
DEC 
INC 
INC 
oZ MYVN 
eX EXT 


X*REPLCNST 
X*FLOTCNST 
X*FILLCNST 


NN NY NY NWN 


nN 


Ny NM NM N 


me 1M ND ee 


SBASE 
SBASE 
1BASE 


4uA 
1UA 
1UA 


MOVE CHARACTERS AND EDIT SUBROUTINE 


BASE 
ALBASE 


+38 UNRASE 
+38 UNBASE 
+38 UNBASE 
+38 UNBASE 
+38 UNBASE 
+36 BASE 
+203 IT ABASE 
BASE 
ALBASE 


NLBASE 
+36 UNBASE 


+38 UNBASE 
+38 UNBASE 
+38 UNBASE 
+38 UNBASE 
+38 UNBASE 


NLBASE 
NLBASE 
+36 UNBASE 


+36 UNBASE 
+2631 ABASE 


QO *» 


+36 
+203I1A 


+213UN 
+213UN 
+273UN 
+273UN 
+36 UN 
+36 

+2631A 
+36 

+2031A 


+38 UN 
+38 UN 


+213UN 
+213UN 
+273UN 
+273UN 
+36 UN 


#36 UN 


+36 

+273UN 
+273UN 
+263IA 
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SCAN A COUNTING 
NUMBER OF LEADI 
IF ALL ZEROS 
ADJUST BOTH THE 
B=ADDRESSES BY 
NUMBER OF LEADY 
ALSO ADJUST SIZ 
BOTH OPERANDS.» 
MOVE NUN@ZEROD P 
OF A TU 8 RIGHT 
SCAN FOR . TOR 
ZERO SUPPERSION 
IF NOT» EXIT. 
DETERMINE IF PE 
LAST CHARACTER, 
IT IS» EXIT, 
ADJUST AUDDRESSE 
POINT PAST THE 
AND SET SIZE To 
NUMBER OF REMAI 
CHARACTERS, 


If ADDRESSES AR 
ALREADY POINTIN 
LAST CHARACTER 
FIELD» ADJUST T 
DO SO AND REMOV 
SIGN 

JUSTIFIED AND E 


REPLACEABLE CHA 
FLOATING $ INDI 


0403 
0404 
0405 
0406 
0407 
0406 
0409 
0410 
0411 
0412 
0413 
0414 
0415 
0416 
0417 
o4i16 
0419 
0420 
0421 
0422 
0423 
0424 
0425 
0426 
0427 
0428 
0429 
0430 
0431 
0432 
0433 
0434 
0435 
0436 
0437 
0438 
0439 


X*E 


oA 


eB 


aC 


29 


” 
m 


9G 


eH 


MVN 1212BASE 


INC 2 SBASE 
INC 2 SBASE 
DEC 1 52 
INC 2 5SBASE 
INC 2 SBASE 
DEC 1 52 
CPA 1 i= 
NEQ +A 
MVN 1 21 
BUN +B 
DEC 1 52 
CPA 2 2CR 
NEQ +D 
MVN 1 22 
SDE 16 1X*Z*B 
LEQ +C 
INFL 

MVA 1 

DEC 1 52 
BUN +H 
INC 1 Se 
CPA 1 1 
NEQ +E 
MVN 1 21 
BUN +F 
CPA 2 2E€R 
NE@ +H 
MVN 22 
SDE 16 ixX*Z=B 
LEQ +G 
INFL 

MVA 1 

INC 2 5BASE 
INC 2 SBASE 
CPA 1 18 


+203UNBASE 
+163UNBASE 
+163UNBASE 
NLBASE 
+1 835UNBASE 
+183UNBASE 
NLBASE 
ALBASE 


NLBASE 


NLBASE 
ALBASE 


BASE 
ALBASE 
NLBASE 


NLBASE 
ALBASE 


NLBASE 


ALBASE 


NLBASE 
BASE 


BASE 
ALBASE 

+36 UNBASE 
+36 UNBASE 
ALBASE 


+323UN 
+333UN 
+333UN 
+333UN 
+393UN 
+393UN 
+393UN 
+383I1A 


+36 UN 


+393UN 
+3831A 


+36 
+3831A 
+393UN 


+393UN 
+263I1A 


+36 UN 


+263I1A 


+36 UN 
+3238 


+36 

+263IA 
+273UN 
+273UN 
+3631A 
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CREATE TWO ADDR 
IN THE STACK,» 
POINTING TO THE 
THE A FIELOs TH 
POINTING TO THE 
THE B FIELDe 


DETERMINE IF ED 
CONTAINS TRAILI 
OR CR SYMBOLS. 
IF AwFIELD IS N 
NEGATIVEs BLANK 
SYMBOLS, 


DETERMINE IF ED 
CONTAINS LEADIN 
OR CR SYMBOLS. 
IF A*FIELD IS N 
NEGATIVEs BLANK 
SYMBOLS, 


ADJUST ADDRESS 
SYMBOL LOCATION 


a? rT atl 


RIGHT*NOST CHAR 


0440 
0441 


0442 
0443 
0444 
0445 
0446 
0447 
0448 
0449 
0450 
0451 
0452 
0453 
0454 
0455 
0456 
0457 
0458 
0459 
0460 
0461 
0462 
0463 
0464 
0465 
0466 
0467 
0468 
0469 
0470 
0471 
0472 
0473 
0474 
0475 
0476 


el 


oJ 
oK 


el 


aN 


oM 


NEQ 
MVA 
DEC 
BUN 
CPA 
NEQ 
MVN 
INFL 
CPN 
NEQ 
MVN 
INFL 
MVA 
BUN 
MVN 
CPA 
NEQ 
CPN 
NEQ 
MVN 
DEC 
CPA 
NEQ 
MVA 
CPA 
NEQ 
MVA 
INC 
SDE 
LEQ 
CPA 
NEQ 
MVA 
BUN 
MVN 
DEC 
DEC 


2BASE 


+X 


6200000 


10 
+L 

50 
+L 


+163UNBASE 


+18 3UNBASE 


+383UNBASE 


+26 


+26 


+323 TABASE 


+383IA 
+#393UN 


ALBASE 
NLBASE 
ALBASE +383I1A 
+36 UN 


BASE +36 
ALBASE +203IA 


+36 UN 
BASE +36 
ALBASE +263I1A 


+443UN 
+3B3IA 


NLBASE 
ALBASE 
NLBASE +453UN 
+443UN 


+393UN 
+383IA 


NLBASE 
ALBASE 


ALX*FILL 
ALBASE +383I1A 
ALX*FLOT 
NLBASE 
ALBASE 


+393UN 
+3831A 


ALBASE +3831A 


ALBASE +383IA 
#383148 
+#333UN 
+393UN 


NLBASE 
NLBASE 
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= & 
IF SO» BLANK IT 
ADJUST ENDING A 


DETERMINE IF RI 
CHARACTER OF ED 
IS ZERO, IF SO 
AwFIELO = ZERO, 
IF A@FIELO = ZE 
SPACES TO BeFIE 
GO TO EXIT, 


SET UP ZERO ADD 
TEST* MASK CHAR 
= ZEROe 

IS THIS RIGHT# 
ZEROe IF SOs S 
END SUPR ADDRES 
LOOK AT PREVIOU 
Is IT = * 

IF SOQ» 

SET FILL TO * 
IS PREV CHAR §$, 
IF SO» 

SET $ FLOAT IND 
ADDR TO CURRENT 
MASK CHAR = Oo* 


DECREASE A*ADDR 
DECREASE B=ADDR 
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O4a77 CPN 5 SBASE +393UNBASE +273UN IS BeFIELD EXHA 
0478 LSS +P 

0479 CPN 5 SBASE +333UNBASE +213UN IS A*FIELD EXHA 
0480 GEQ =K 

0481 oP SOE 4 LX*REPL BASE +2631A B=CHAR = 0 >» * 
04682 GTR +Q 

0483 MVA 1 AX*FILL BASE +263I1A REPLACE wITH FI 
0484 INC 1 52 NLBASE +273UN INCREMENT B#ADD 
0485 CPA 1 Ii, ALBASE +#263I1A MASK CHAK = DEC 
0486 EQL +9 IF SOs END. 
0487 CPN 5 SBASE +273UNBASE +453UN END OF ZERO SUP 
0488 NEQ =P 

0489 24 CPA 14 11 ALX*FLOT FLOATING DULLAR 
0490 NEQ +X 

0491 DEC 1 52 NLBASE +273UN REDUCE BeADDRES 
G492 MVA 4% 45 ALBASE #26318 INSERT GULLAR § 
0493 oX MVA 2 20 ALX*FLOT RESET INDICATOR 
0494 EXT 

0495 

0496* 

0497 

0496" 

0499% 

0500+ 

0501 

0502 

0503» 

0504 

0505* 

0506 

0507 PRINT ROUTINE FOR GTHER THAN SINGLE*SPACING 

0508 

0509 X*PRT EQIV 4Xx*P 26 PAPER MOTION VA 
0510* w#eeeFOR BASIC PROGRAMS», CHANGE ABOVE INCREMENT TO 24 
0511 X#EQOP MVN 1 11 NLX*#CH12 4 SET CHAN=12 BOO 
0512 X«P WRIT 1 FePRNI X*#EOP WRITE UN LINE P 


0513 MVN 4 40100 _ NLX*PRT RESTORE TO SING 


0514 
0515 
0516% 
0517 
0518 
0519* 
0520 
0521 
0522« 
0523 
0524* 
0525 
0526* 
0527 
0528 
0529% 
0530« 
0531 
0532 
0533 
0534 
0535« 
0536 
0537 
0538 
0539 
0540 
0541 
0542 
0543 
0544 
0545 
0546 
0547 
0548 
0549 
0550* 


EXT 
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RETURN TO PROGR 


PRINT ROUTINE TO HANDLE TRIPLE SPACING 


X*#PM EQIV 


4X*PRNT 26 


PAPER MOTION VA 


ee*eeF OR BASIC PROGRAMS» CHANGE ABOVE INCREMENT TO 24 


X*PRT CNST 4UN 

X«P MVN 3 4X#PRT 

X*PRNTWRIT 1 F*ePRNI 
BOT O110X*PRT 
NEQ +P 

X*SKIPPOSN 1 F*ePRNI 

oP MVN 4 40100 
EXT 


AwEOP MVN 1 11 
BUN X*PRNT 


X*EOS MVN 1 11 
BUN X*SKIP 


1 


0100 
X*PM 
X*EOP 


X#E0S 
NLX#PRT 


NLX#CH12 


NLX*CH12 


{ 


1 


P/M VARIABLE ST 
SET VARIABLE IN 
WRITE ON LINE P 
TEST FOR 3RD SP 
BRANCH IF NOT N 
SINGLE SPACE PR 
RESTORE TO SING 
RETURN TO PROGR 


SET CHAN#=12 B00 
GO BACK TO PRIN 


SET CHAN#*12 BOO 
GO BACK TO SPAC 


OSS5i* 
0552* 
0553* 
0554 
0555" 
0556« 
0557* 
0558 
0559 
0560* 
0561 
0562 
0563 
0564 
0565 
0566 
0567 
0568 
0569 
0570 
0571 
0572 
05/3 
0574 
0575 
0576 
0577 


agcTa 
Vat O 


0579 
0580 
0561 
0582 
0583 
0564 
0585 
0586 
0587 


XeU 


oA 


08 


MULTIPLY SUBROUTINE 
MVA 2 2BASE B3UABASE 16 UA 
ADD 1 21 NLBASE 34 ~=BASE 36 
INFL BASE 32 BASE 32 
MVN BASE 2431 AX*WRK1 
MVN 1 1C NLX#*WRKI UN 
ADD 2 6BASE 163 BASE 243 +A 12 
INC 2 SBASE 163 +A 13 
DEC 1 52 NIL+A 13 
SDE 16 1X*Z*B BASE 
GTR * 26 
MVN 1 4D NLX#WRKI UN 
INFL BASE 34 ~=6BASE 36 
MVN BASE 3031 AX*WRK2 
MVN 1 1C NLX*WRK2 UN 
ADD 2 SBASE 183 BASE 303 +8 i2 
INC 2 SBASE 183 +R 13 
DEC 1 52 NL+8 13 
SDE 16 1x*Z=B BASE 
GTR * 26 
MVN 1 10 NLX*#WRK2 UN 
INFL BASE 32 BASE 36 
MPY X*WRK1 XeWRK2 X*WRK3 
ADD 4 SBASE 203 BASE 313 +0 13 
INC 4 5BASE 203 +0 13 
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STORE A AND B S 
BwFIELO SIZE + 


STORE A#FIELO 
SET AFIELD PLU 
FIND 
APFIELD 
LSD 

IS AwFLD LSD SI 
BRANCH IF NOT 
SET A*FLO MINUS 


STORE B=FIELD 
SET BeFIELD PLU 
FIN 
BeFIELO 
LSD 
iS BeFLO LSD Si 
BRANCH IF NOT 


SET BeFLU MINUS 


2 


PERFORM MULTIPL 
FIND 
RESULT@*FIELD 


0588 
0589 


0590 

0591 

0592 

0593 

0594 

0595 

0596 

0597 

0598 

0599 

0600* 
0601 
0602 
0603* 
0604«% 
0605* 
0606* 
0607* 
0608% 
0609 
OS10% 
O611*% 
0612" 
0613 
0614" 
0615 
0616" 
0617* 
0618* 
0619 
0620 
0621* 
0622 
0623 
0624% 


2D 


DEC 
MVN 


MVN 
INFL 
MVN 
SUB 
LEQ 
INC 
INFL 
MVN 
MVN 
EXT 


52 NL +) 


40 NLBASE 
2BASE 203 BASE 
BASE 32 BASE 
X*WRK3 1 UNBASE 
4100 NLBASE 
+0 

32 NLBASE 
BASE 34 BASE 


X#WRK3101 UNBASE 
1X*WRK3 UNBASE 


13 

32 

32 

32 

303IA 

203 BASE 


313 
34 
3031A 


32 
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LSO 
SET RESULT SIZE 


STORE RESULT $2Z 


MOVE 1ST 100 OR 
FIND EXCESS OVE 
BRANCH IF NOT > 
INC RES*FLD BY 


MOVE 2ND PART OQ 
STORE RESULT SI 
RETURN TO PROGR 


wae) 


0625* 
0626% 


0627* 
0628+ 
0629* 
0630* 
0631 
0632 
0633 
0634 
0635 
0636 
0637 
0638 
0639 
0640 
0641 
0642 
0643 
0644 
0645 
0646 
0647 
0648 
0649 


DIVIDE 

X*INVDCNST 23UA 

X*D SDE 3397X*Z*AR 
LE@ +A 

oD DISP23 X*INVD 
STOP 

oA INC i 21 
MVR 2 2BASE 
INC 2BASE 
OFL =D 
MVN 2BASE 
DEC 5BASE 
DEC 5BASE 
INFL BASE 
MVN BASE 
MVN 1 1C 
ADD 2 6BASE 
INC 2 5BASE 
DEC 1 582 

08 SDE 16 1X*Z=B 
GTR * 
MVN 1 10 
INFL BASE 
MVN BASE 
MVN 1 1C€ 
ADD 2 6BASE 
INC ? 5BASE 
DEC 1 52 


BASE 

NLBASE 
38 BASE 
183 BASE 
163 BASE 
183 BASE 
183 BASE 
32 BASE 
AOSTAX*#WRK 1 

NLX#WRKI 
32 BASE 
32 +B 

Nice e 

RASE 

26 

NLX*WRK I 
34 BASE 
P263TAX*WRKO 

NLX#WRK? 
34 BASE 
34 +C 

NL+C¢ 


SUBROUTINE 


DS*ED == INVALID DIVIDE 


2631A 


203 +3 12 


is 
w 


pa 
iw 


UN 
34 


UN 
263 «+C 12 
13 
13 
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FIND BeFIELO LS 
BRANCH IF FOUND 
DISPLAY INVALID 
ABORT**END OF J 


PRUPER INDI 
FIELD LENGTHS 
VIVISOR»s DIVI 
TOTAL B°FIELD 


FIND BEGINNING 
UF TUTAL B=FI 


STORE A=FIELD 
SET AFIELD SIG 
FIND 

AFIELD 


LSO ADDRESS 


a Se 


IS A*FIELD SIGN 
BRANCH IF NOT 
SET A*FIELD SIG 


STURE BeFIELD 
SET BeFIELD SIG 
FIND 
BrFIELD 
LSD ADDRESS 


0662 
0663 
0664 
0665 
0666 
0667 
0668 
0669 
0670 
0671 
0672 
0673 
0674 
0675 
0676 
0677 
0678 
0679 
0680 
0681 
0682 
0683" 
0684 
0685* 
0686* 
0687* 
0686*% 
0689" 
0690 
0691* 
0692 
0693 
0694% 
0695« 
0696 
0697* 
0698s 


eC 


2D 


o£ 


e0 


MVN 
EXT 


=> me NW N 


1X*Z=9B 
* 
1D 
BASE 
X#WRK1 
+9 
BASE 
X*WRK2 
6=C 
1X*WRK2 
BASE 
X*WRK3 
SBASE 
SBASE 
52 
1X*WRK3 


11 


26 


32 


36 
36 


BASE 


NLX#WRK2 
BASE 
XeaWRK2 


BASE 
UNBASE 
+0 
UNBASE 

BASE 
UNBASE 

BASE 

+E 
NL+E 
UNBASE 


NLX*OFL 


UN 
34 
X#WRK3 


263I1A 


1 
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IS BeFIELD SIGN 
BRANCH IF NOT 


SET B=FIELD SIG 


PERFORM DIVIDE 
BRANCH ON OVERF 


STORE REMAINDER 
FIND REMAINDER 
SET SIGN OF REM 


STORE QUOTIENT 
FINO 
QUOTIENT 
LSD ADDRESS 
SET SIGN OF QUO 
NORMAL EXIT 


SET OVERFLOW TO 
EXIT AFTER QVER 


0699% 
0700* 
0701 
0702 
0703 
0704 
0705 
0706 
0707 
0708 
0709 
0710 
0711 
0712 
0713 
0714 
0715 
0716 
O717 
0718 
0719 
0720 
0721 
0722 
0723 
0724 
0725 
0726 
0727 
0728 
0729 
0730*% 
O731% 
0732 
0733* 
O734* 


O7 35% 


X#CEPTCNST 
X#RPL CNST 
X#ADR CNST 
X*NOTICNST 
X*#NOT2CNST 
X*NOT3CNST 
X*#CHARCNST 
X#CNV MVA 
MVN 
oA SOE 
GTR 
MVN 
INC 
INC 
oA MVA 
2B NOT 
MVN 
MVA 
MVL 
of NOP 
INC 
MPY 
INC 
EXT 
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CONVERT 3*CHARACTER ADDRESS TO S=NIGIT ADDRESS 


3 3BASE 
3 SX*CHAR 


= QP Pe OT J 


—_— 


3X *#CHAR 
+B 
5X*RPL 
SBASE 
SBASE 
IX*RPL 
1F 27 
2X*NOT2 
1xX*CHAR 
=8 

=A 
2X*NOTI 
14 

2-8 


616D4E 


E1EOCO 


1631 AX*CHAR 
X*ADR 
X*CEPT 


LL4A 
39 +A 
39 +A 
UAX*® CHAR 
NLX*CHAR 
X#nOT1 
2 X*CHAR 
+C 


X*ADR 
NLX#NOT2 
9 X*ADR 


UA 


UNX*NOT3 


+C 


“B 


1401 EXCEPTION 
3500 REPLACEMEN 
RESULTING 5@DIG 
ZONE W/A 1 
ZONE W/A 2 
ZONE W/A 3 
1401 3=°CHAR ADD 


STURE 3°CHAR AN 
STORE PORTION < 
TEST FOR EXCEPT 
BRANCH IF NONE 
SET ADR OF REPL 
INCREMENT INTO 
REPLACEMENT T 
REPLACE EXCEPTI 
CONVERT ZONE MO 
STORE MODIFIED 
SET UP LSD CHAR 
SET SWITCH TO R 
REPEAT FUR LSD 
ADO MODIFIER < 
FIND 4000 MOD 
ADD 4000 MOD 
RETURN EXIT 


0736% 
0737 
0738" 
0739s 
0740« 
0741 
0742 
0743 
0744 
0745 
0746 
0747 
0748 
0749 
0750 
0751 
0752 
0753 
0754 
0755% 
0756% 
O757% 
0756* 
07598 
0760 
O761* 
0762* 
0763 
0764 
0765 
0766* 
O767* 
0768* 
0769" 
0770* 
0771 
O7f2 


XeJ 


Xe] 


of 


MVN 


INFL 


MVN 
B2T 
EQ@L 
MVA 
NTR 
INC 
MVN 
INC 
EXT 
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DETERMINE CORRECT 83500 INDEX REGISTER VALUE 


2 2BASE 183 BASE 32 
BASE 32 
S5BASE ZO3TAX*ADR 
O130BASE 193 


+B 
3 3BASE 2O3TAX*CHAR 
X*CNV 18 
5S 5X*ADR X#ADR 
2 2BASE 163 +C 
5S 7X*ADR BASE 26314 


STORE IND A@FIE 


STORE A*FIELO 
IS A*FIELD 3 CH 
BRANCH IF NOT 
STORE 3@CHAR AD 
CONVERT TO 5=DI 
DOUBLE IT 

OP IS INC» DECs 
PUT VALUE INTO 
RETURN EXIT 


POSITION PRINTER IF NO TRIPLE SPACING 


0773 
0774 
0775 
0776 
0777 
0778 
o779 
0780« 
0781s 
0782s 
0783* 
0784s 
0785 
0786 
O787% 
0788 
0789% 
0790% 
O7Fi 
0792 
0793 
0794 
0795 
0796 
0797 
0798 
0799 
0800 
0801 
0802 
0803 
0804 
0805 
0806 
0807* 
0808 
0809 


173 


+P 
X*EOS! 


NUX#CHi2 


27 


i 
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SET PRINTER VAR 
SKIP OR SPACE P 
RETURN EXIT 


SET CHANNEL 12 
GO BACK TO POSN 


POSITION PRINTER IF TRIPLE SPACING IS REQUIRED 


Xw#POSNMVN 3 4BASE 
eP POSN 1 F*PRNI 
EXT 
X*EGSIMVN 4 fi 
BUN =p 
X*POSNMVN 3 4BASE 
aP POSN 1 FePRNI 
BOT O110BASE 
NEQ +7 
2A POSN 1 FePRNI 
oT EXT 
X*EQSIMVN 1 11 
BUN =P 
X*WEQS2MVN 1 11 
BUN =Q 


173 


163 


+P 


X*E0S1 


X*E0S2 


NLX*CH12 


NLX*CH12 


2? 


SET PRINTER VAR 
SINGLE OR DOUBL 
IS 3RD SPACE NE 
BRANCH IF NOT 
SINGLE SPACE PR 
RETURN EXIT 


SET CHANNEL 12 
GO BACK TO 1ST 


SET CHANNEL 12 
BO BACK TO 2ND 


OB810«% 
O81i« 


0812 
O813« 
0814s 
0615* 
0816 
0817*% 
0818* 
0819 
0820 
0821 
0822 
0823 
0824 
0825 
0826 
0827 
0828s 
0829» 
0830 
O831i* 
0832+ 
0833 
0834 
0835* 
0836* 
0837 
0836 
0839 
0840 
084i 
0842 
0843 
0844 
0845 
0847 


STOREICNST 2UN 
STORE2CNST 2UN 
STORE3CNST 7UN 
STOREACNST 25N 
SAVX*ICNST 16UN 
MACRADDR 
MEQLTYPEOMIT 
MEQLTYPENULL 
MBUN MERMES 


MEQLTYPENULL 


SAs $Be SC» SDs SEs 


SK» SL» 8M 
$K 
SK 


$M 


$Fs $Gs SH» 


MSTART 
MSTART 


MNOP1 
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SUM OF A & B DE 
CeFIELD DECIMAL 
C@FIELO LENGTH 

PRODUCT SCALING 


0848 
0849 
0850 
0851 
0852 
0653 
0654 
08655 
0856 
0857 
0858 
0859 
0860 
0861 
0862 


Aasz2 
vVuUw a 


0864 
0865 
0866 
0867 
0868 
0869 
0870 
0871 
0872 
0873 
0874 
0875 
0876 
0877 
0878 
0879 
0880 
0861 
0862 
0883 
0864 


MNOP4 


MLABI 


MEQLTYPEOMIT $M 

MVN 2 203 NLASCIX) 
MNOP 

MVN 1616BASE 8 SAVX*! 
MVN 1 9 NLX#WRK14 
MVN 1 0 NLX#WRKZ 
MVN 2$H BASE 
MVN 2 2BASE 16 BASE 
MVN 288 BASE 
INFL BASE 
MVA $A X*WRK3 
MVN 2$E BASE 
INFL BASE 
MVA $D X#*WRK2 
DEC 28C BASE 
DEC 2$F BASE 
INC 2st BASE 
INC 2s! BASE 
MEGLTYPELABEL $J 

INC 1 21 NLBASE 
INC 1 21 NLBASE 
MNOP 

CPN 2 2BASE BASE 
LSS * 34 

MVN 2 2BASE UNBASE 
BUN * 26 

MVN 2 2BASE 2 UNBASE 
Inc 1 21 NLBASE 
INFL BASE UNBASE 
MVN X* WRK X*WRK 1 
INFL BASE 2 UNBASE 
MVN X*WRK2 X*WRK 3 
MEQLTYPENULL $L 
MEQLTYPEOMIT $L 

MVN 1 1C NLX*WRK1I 
MVN $B IX! 


bec i i NLTAI 


16 
18 


b) 


MNOP1 
UN 


MLABi 
UN 
UN 


UN 


6 UN 
6 UN 
6 UN 


UN 


MLAB2 
MLAB2 
UN 
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SAVE IX & 1X2 
CLEAR WORK 10 
CLEAR WORK2 TO 


STORE A OPND SI 


STORE A#UPND IN 
STORE BeOPND SI 


STORE B=0PND IN 
GET A INTEGER § 
GET B INTEGER § 
INC C#DECIM TO 
INC C=DECIM TO 


ADD 1 DIGIT PRE 
ADD 1 DIGIT PRE 


CPN AwSIZ TO B= 
BUN ON A < B 
MOVE A*S1Z TO B 
ELSE 

MOVE B=SIZ TO B 
ADD 1 DIGITSOFL 


RIGHT JUSTIFY A 
RIGHT JUSTIFY B 


SET PLUS SIGN 
INDEX TO A FIEL 


0885 
0686 


0887 
0688 
0889 
0890 
0891 
0892 
0893 
0894 
0895 
0896 
0897 
0898 
0899 
0900 
0901 
0902 
0903 
0904 
0905 
0906 
0907 
0908 
0909 
0910 
Oot! 
0912 
0913 
0914 
0915 
0916 
0917 
0918 
0919 
0920*% 
092i* 


INC 1X! 

SDE 16 1X#Z=B 

GTR 

MVN 1 10 

MVN 1 1¢ 

MVN SE 

DEC 1 01 

INC 1X1 

SDE 16 1X*Z=B 

GTR * 

MVN 1 1D 
MLAB2 MNOP 

INFL BASE 
ASCIX)INC X*WRK3 

MEQLTYPELABEL 

INFL 

INC 1 5 
MLAB3 MNOP 

DEC 1 21 

MVN 2 7BASE 

DEC 2 7BASE 

GEQ ADCIX) 

MVN 210BASE 

INFL BASE 
ADCIX)MYN X*HRK I 

MEQLTYPEOMIT 

MEQLTYPENULL 

SUB 1 21 

INC 1X1 

MVN 1 LX*WRKI 
MLAB4 MNOP 

MVN 1616SAVX#1 

MEXT 
MERMESMERR 

MEND 


ILLEGAL EDIT PARAMETERSADD=SUB MACRO 


26 


26 


6 
16 


6 
16 


1X1 
$A 


NLX*WRK1 
NLX#WRK3 
1X1 
NLIX1 
1X1 
£D 


NLX#WRK3 


UNBASE 
X#WRK1 
$J 
BASE 

NLX*WRK1 


NLBASE 
UNIX1 
IX1 


BASE 
BASE 


11UN$G 


$L 

$L 
NLBASE 

IXxi 
UN$G 


BASE 


UN 
UN 


UN 


MLAB3 


1 UN 


UN 


MLAB4 

MLAB4 

18 UNBASE 
1UN 


8 UN 


14 
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SCAN FOR MINUS 
BUN IF PLUS 

SET MINUS SIGN 
REPEAT SIGN HAN 


INC OR DEC DEPE 
BUN IF NOT ROUN 


ROUND RESULT 


DEC 1 OIGITIOFL 
STURE RESULT SI 
DEC IXi BY C#F 
BUN ON RSLT 2 C 
ZERO XisSTORE R 
INFL 

MOVE RESULT TO 
BUN IF SIGN HAN 
NOT REQUIRED 
INDEX TO C*FLO 
ADJUST FOR UA D 
TRANSFER SIGN 


RESET 1X1 & Ix 


Q0922* 
0923« 


0924 
0925" 
0926" 
0927 
09288 
0929* 
0930 
0931 
0932* 
0933* 
0934 
0935 

0936 

0937 

0938 

0939 

0940 

0941» 
0942s 
0943" 
0944 
0945 
0946 
0947 
0948 
0949« 
0950* 
O9Si«* 
0952 
0953 
0954 
0955 
0956 

0957 

0958 
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MACRSUBRS$A» $B» $C» $D» SE» SFe $Gs SH» SI» 
$J» $Ks $L 

ADOR SAsSBeSCrS0s8E so SF s8$GeSHe Sle 
SJ» $Ks SLs 1 

MEXT 

MENO 


MACRMLTP $A» $Bs SCs SDs SEs SF» $Gs $H» 
Sle SJs SK» $L 
MEQLTYPEOMIT $K MSTART 


0959 
0960 
0961 
0962 
0963 
0964 
0965 
0966 
0967 
0968 
0969 
0970 
0971 
0972 
0973 
0974 
0975 
0976 
0977 
0978 
0979 
0980 
0981 
0982 
0983 
0984 
0985 
0966 
09687 
0988 
0989 
0990 
0991 
0992 
0993 
0994 
0995 


MEQLTYPENULL 
MBUN MERMES 
MSTARTMNOP 
MVN 1616BASE 
MVN 1 0 
MVN 2$8 
MVN 23E 
MVN 2$H 
MVN 2 2BASE 
MEQLTYPENULL 
ME@LTYPEOMIT 
MVN 28C 
INC 2$F 
MVN 2s] 
MLABL MNUP 
INFL BASE 
MVN $A 
INFL BASE 
MVN $0 
MEQLTYPEOMIT 
MEQLTYPENULL 
MVN 1 1¢ 
MYN 2 BASE 
DEC 1 1 
INC IxX!i 
SOE 16 1xX*Z=B 
GTR * 
MVN 1 1D 
MVN 14 1¢ 
MVN 2 BASE 
DEC 1 1 
INC IX1 
SDE 16 1X*Z=B 
GTR * 
MVN 1 10 
MLAB2 MNOP 
INFL BASE 


8 


16 


26 


2 


26 


£K 


UNSAVX#1 
NLX#WRK 3 
BASE 
BASE 
BASE 
BASE 

$C 
$C 
STORE 
STORE! 
STORE? 


BASE 

X*#WRK J 

BASE 

X*WRK2 

SL 

$L 
NLX*WRK 1 

IX! 
NLIX1 

IX! 

$A 


NLX*WRK { 
NLX#WRK? 
1X1 
NLIX1 

1X1 
$9 


NLX*®WRK? 


BASE 


MSTART 


2 


16 
18 


MLABIL 
MLABI 


UN 
UN 


UN 


2 
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SAVE IxX1 & Ix2 
CLEAR WORK3 TO 


STURE PARAMETER 
SET UP INFLS 
STORE C SIZE Tw 
BUN IF NO SCALI 
REQUIRED 

STORE A PND SC 
INC BY B OPND §$ 
STURE C OPND SC 


STURE A UPND 


STURE 38 OPND 
BUN IF NU SIGN 
HANDLING REQUIR 
SET PLUS SIGN 
INDEX TO A FIEL 


IS AsFLD LSD SI 
BRANCH JF NOT M 
SET MINUS SIGN 

REPEAT SIGN HAN 


A & B FIELO LEN 


0996 
0997 
0998 
0999 
1000 
1001 
1002 
1003 
1004 
1005 
1007 
1006 
1009 
1010 
1011 
1012 
1013 
1014 
1015 
1016 
1017 
1018 
1019 
1020 
1021 
1022 
1023 


INDrae 


svihew 


1025s 
10268 
1027 
1026s 
1029% 
1030* 
1031* 
1032 
1033 


MERMESMERR 


MPY X*WRKI 
MVN 2 7BASE 
INC 2 7BASE 
MEQLTYPENULL 
MEQLTYPEOMIT 
SUB 2 2STOREI 
INC 2 7STORES 
MEQLTYPELABEL 
ADD 1 21 

INFL 

MNOP 

SUB 2 7BASE 
GEQ MPCIX) 
MVN 210STORE3 
INFL BASE 


XOMVN X#HRKS 


MEQLTYPEOMIT 
MEQLTYPEOMIT 
sue i 21 

INC 1X1 
MVN 1 IX*WRKS 
MNOP 

MYN 1616SAVM#1 
MEXT 


MEND 


XeWRKD 
STORE 
STORE3 
$C 
$C 
STORE? 
STORE3 
$J 


NLSTORE3 


BASE 


STORE3 


$L 


NLBASE 


Xt 


UNSG 


BASE 


X*#WRK3 


oe te 


MLAB4 
MLAB4 
BASE 


EDIT PARAMETERS ILLEGAL*MTPLY MACRU 
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MULTIPLY 
A LENGTH TO STO 
ADD B LNGTH TO 
BUN IF SCALING 
REQUIRED 
DECIMAL DIFFERE 
SCAL*ADy PRODUC 
BUN IF NOT ROUN 
SET UP INFL FOR 
INFL 


ADJUST IX1sRSLT 
BUN ON RESULT=S 
ZERO IX1»SET IN 
INFL 

MOVE PRODUCT TQ 


BUN IF NO SIGN 
HANDLING REQUIR 


14 UNSET TXi TO CSFL 


ADJUST IX1 FOR 
SET C FIELD SiG 


RESTORE IXi & I 


1034 
1035% 


1036* 
1037% 
1038 
1039 
1040 
1041 
1042 
1043 
1044 
1045 
1046 
1047 
1048 
1049 
1050 
1051 
1052 
1053 
1054 
1055 
1056 
1057 
1058 
1059 
1060 
106% 
1062 
1063 
1064 
1065 
1066 
1067 
1068 
1069 
1070 


MACRDIVI $A» $B, 
SIs SJ» 


MEQLTYPEOMIT 
MEQLTYPENULL 


MBUN MERMES 


MSTARTMNOP 


MLABI 


MVN 1616BASE 
MVN 288 
MVN 2$E 
MVN 2$H 
MVN 2 2BASE 
MVN 1 0 
INFL BASE 
MVN $A 
ADD 2 2BASE 
INFL BASE 
MVN $D 
MEQLTYPEOMIT 
MEQLTYPENULL 
INC 28C 
INC 28! 
DEC 2$F 
MEQLTYPELABEL 
INC i 2i 
MEQLTYPENULL 
MEQLTYPEOMIT 
MVN 14 1C¢ 

MVN 14° 1C€ 

MPY 5 200002 
DEC 1 2 

SDE 16 1X*Z=B 
GTR * 

MVN 141 10 


16 


26 


$C» SDs SE, SF, $Gs $H,y 


SK» $L» $M 
$K 
$K 


UNSAVX«#1 
BASE 
BASE 2 
BASE 16 
UNBASE 18 UN 
NLX*WRKO 
BASE 
X*WRK1 
BASE 
BASE 4 
X*WRK2 
$C 
$C 
BASE 4 
BASE 
BASE 
$J 
NL BASE 4 
$L 
$L 
NLX*#WRK1 UN 
NLX#WRKO2 UN 
NLBASE 
NLIX1 
$A 1 


LY) 


> £& 


NLX*WRK 1 UN 


MSTART 
MSTART 


BASE 


MLAB1 
MLABI 


MLAB) 


MLAB2 
MLAB2 


1X1 


4 
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SAVE 1X1 & Ix2 
STORE A LENGTH 
STORE 8 LENGTH 


SET B/ LENGTH 


FALL THROUGH IF 
PRESENT 


BUN ON J PRESEN 


BUN TO MLAB2 IF 
PARAM NOT PRESE 


NLBASE 2 
NLIX1 
£9 
26 
NLX#WRK2 
BASE 4 
X*WRK2 
BASE 4 
£J 
BASE ? 
NLX*WRKI 1 
NLBASE 2 
2 1X1 
16 [xi 


2 BASE 8 
16 BASE 18 
11UN8G 
$L 
$L 
NLBASE 
1X1 

UNSG 
$M 
$M 


16 


A 
+ 


11UNSM 


~~ 
4 
J 


UN 


X*WRK 
BASE 
MLAB3 


UN 


MLABG 
MLAB4 
BASE 


1 UN 
MLABS 


MLABS 
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2 GET SIZE OF RES 
BUN IF T PARAM 


SIZE OF RESULT 


CeSIZ TO i7"i8, 


MOVE QUOTIENT T 
BUN IF SIGN HAN 
NOT REQUIRED 

14 UNC@LENGTH TO IXt 


TFR SIGN 
BUN IF NO REMAT 


REQUIRED 


RETURN REMAINDE 


EDIT PARAMETERS ILLEGALiDIVIDE MACRO 


MPY 5S 200002 

DEC i 2 

SOE 16 1X*Z"B 

GTR * 

MVN 1 40D 
MLAB2 MNUP 

INFL BASE 

DIV X*WRKI 

SUB 2 2BASE 

MEQLTYPELABEL 

INFL 

INC 1 5 

DEC 1 21 
MLAB3 MNUP 

MVN 2 7BASE 

DEC 2 7BASE 

GEQ DVCIX) 

MVN 210BASE 

INFL BASE 
OVC TX MVN X*WRK 3 

MEOLTYPENULL 

MEQLTYPEOMIT 

SUB 1 21 

INC 1X1 

MVN 4 1LX#*WRK3 
MLAB4 MEQLTYPEOMIT 

MEQLTYPENULL 

INFL BASE 

MVN X#WwRK2 
MLABS MEXT 
MERMESMERR 

MEND 


1108* 
1109«% 
1110* 
Vilis« 
1112s 
1113 
1114* 
1115 
1116 
1117 
1116 
1119 
1120 
1121 
1122 
1123 
1124 
1125 
1126 
1127 
1128 
1129 
1130 
1131 
1132 
1133 
1134 
1135 
1136 
1137+ 
1138 
1139% 
1140 
1141 
1142 
1143* 
1144% 


MACRLOOPSA» $B» SC 
MEQLTYPEOMIT 
MEQLTYPENULL 
MVA $B 
MLAB1 MEQLTYPEQMIT 
MEQLTYPENULL 
MVA $C 
MLAB2 MNOP 
DEC 1 
GTR $A 
BUN * +12 
LPCIX)CNST O4UN 
MEXT 
MEND 


$B 
$B 
LPCIX) 
$C 
$¢ 
LPCIX) 


NLLPCIX) 


MLAB1 
MLABI 


MLAB2 
MLAB2 
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1145* 

1146* 

1147 MACRCOMPSAs8Br SCs SDs SE 

1148 CPA $A $8 

1149 MEQLTYPEOMIT $C MLAB 
1150 MEQLTYPENULL s¢ MLABY 
1151 LSS $C 

1152. MLABL MEQLTYPEOMIT $0 MLAB2 
1153 MEQLTYPENULL $0 MLAB2 
1154 EQL $1) 

1155  MLAB2 MEQLTYPEOMIT $e MLAB3 
1156 MEQLTYPENULL SE MLAB3 
1157 GTR $F 


1158 MLAB3 MEXT 
1159 MEND 


Ae3, OPERATION ¢€ 
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E LISTING. 


NOTE FOLLOWING IS A LISTING OF AUTOCODER OP=cODES, EQUIVALENT SPS OP= 
CODES» AND B3500 SYMBOLIC OP=CODES PRODUCED BY THE TRANSLATORe 


AUTO 


ZA 


Zs 


MBC 


MBD 


ZA 


zs 


MCW* 


MC We 


B3500 


NTR 

CNST 
ACON 
ACON 


NTR 


NTR 


NTR 


NTR 


NTR 


REMARKS 


ADD 

ADDITION PERFORMED BY SUBROUTINE 
6 DIGITS A@SIZE BeSIZE 

A ADDRESS 

B ADORESS 


SUBTRACT 
STRUCTURE SAME AS ADD 


ZERO ANS ADD 
STRUCTURE SAME AS ADD 


ZERO AND SUBTRACT 
STRUCTURE SAME AS ADD 


DIVIDE 
STRUCTURE SAME AS ADD 


MULTIPLY 
STRUCTURE SAME AS ADD 


MOVE AND BINARY CODE 
* = D0 CHARACTER MUST BE CODED 
THIS INSTRUCTION NOT TRANSLATED 


SEE MBC ABOVE 
SEE MBC ABOVE 


xz 
i=) 
re 


MCS 


MIZ 


MLC 


MLCWA 


LCA 


MLNS 


MN 


MLZS 


MRCWG 


x 
“ 
inal 


MCS 


MIZ 


MCW 


LCA 


MN 


MZ 


P 


NTR 

CNST 
ACON 
ACON 


NTR 


MVA 


MVA 


MVN 


MVN 


NTR 
ACQN 
ACON 


NTR 


PAGE 


EDIT COMMANDS EXECUTED BY SUBROUTINE 
4 DIGITS SIZE oF A ANDO B FIELDS 

A ADDRESS 

B ADDRESS 


MOVE CHARACTERS AND EDIT 


MOVE CHARACTERS AND SUPPRESS ZEROS 
STRUCTURE SAME AS MCE 


MOVE AND INSERT ZEROS 
NOT TRANSLATED SPECIAL FEATURE USED ONLY 
IN CONNECTION WITH 7070 COMPRESSED TAPE 


MOVE CHARACTERS TO A & 8 WORD MARK 
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MOVES > 100 CHARACTERS ARE DONE BY SUBROUTINE 


LOAD CHARACTERS TO A WORD MARK 
SAME AS MCW 


MOVE NUMERICAL 


MOVE ZONE 


MOVE CHARACTERS TO RECORD OR GROUP MARK 
MOVES TO RECORD MARK DONE BY SUBROUTINE 
START OF A 
START OF B 


SAME FORMAT AS MCM 
SAME FORMAT AS MCM 


BAV 


BBE 


BCE 


BCV 


BC9 


BE 


BEF 


Bex 


BBE 


Bee 


Bes 


Bas 


Bex 


Bas 
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BRANCH 
BUN 


IF BRANCH IS TO AN "SBR" INSTRUCTION WHICH STORES 
A RETURN POINT INTO EITHER A BRANCH TO ABSOLUTE 
ZERO OR AN INDEX REGISTER A MOVE IS GENERATED 
BEFORE THE BRANCH TO EFFEET THE LINKAGE. 


BRANCH ON ARIGHMETIC OVERFLOW 
MVN ** ALL BRANCH D CHARACTERS MUST BE CUDED 
NEQ THE MOVE WILL SET THE SIMULATED OVERFLOW TO 
ZEROCOFF) AS WELL AS SETTING COMPARISON 
INDICATOR TO EQL IF IT WAS PREVIOUSLY OFF, 


BRANCH IF BIT EQUAL 
BOT 
EQL 


BRANCH IF CHARACTER EQUAL 
NTR SUBROUTINE SIMULATES 1400 COMP INDICATOR 
CNST D CHARACTER 
ACON BRANCH TO CA ADDRESS) 
ACON LOCATION TO BE COMPARED (8 ADDRESS) 


BRANCH ON CARRIAGE OVERFLOW 
MVN SAME CONVENTION AS ARITHMETIC OVERFLOW 
NEQ 


BRANCH ON CARRIAGE CHANNEL 9 
NOT TRANSLATED = BRANCH CHANNEL 9 


BRANCH ON EQUAL COMARE 
BOT 
EQL 


BRANCH ON EOF OR EOR 


BER 


BH 


BIN 


BL 


BLC 


BLC2 


BM 


BPbB 


Bex 


Bee 


Bex 


Bee 


Ber 


Bek 


BMZ 


Bex 


BOT 
EQL 


BOT 
EQL 


BOT 
EQL 


SDE 
LEQ 


PAGE 
NOT TRANSLATED = MuST BE TNCLUDED AS 
I 


A 
ACTION LABEL 


ai oliogd 


N READ OR WRITE 


BRANCH ON TAPE TRANSMISSIGN ERROR 
NOT TRANSLATED = SAME AS BEF ABOVE 


BRANCH ON HIGH COMPARE 


BRANCH ON INDICATOR 

NOT TRANSLATED = BRANCH IF INDICATOR 
COVERS SEVERAL ERROR 

CONDITIONS. FOR THE MOST 

PART THESE FUNCTIONS ARE 

HANDLED BY THE MCP UR 

10C AND ARE NOT NEEDED 


BRANCH ON LOW COMPARE 


BRANCH ON LAST CARD 

THE CARD READ INSTRUCTION IS 
DONE BY A SUBROUTINE WHICH SETS 
THE INDICATOR TESTED 


BRANCH GN LAST CARD 1440 
NOT TRANSLATED * BRANCH LAST CARD 
ON READER NO. 2 = 1440 ONLY 


BRANCH IF WORD WORK AND OR ZONE 


BRANCH ON PRINTER BUSY 
NOT TRANSLATED = SAME AS BIN 
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BSS 


BU 


BW 


BWZ 


cc 


CCB 


Bee 


Bee 


BWZ 


BWZ 


cc 


OR 


cc 


BOT 
EQL 


BOT 
NEQ 


BOT 
EOL 


BOT 
EQL 
SDE 
LEQ 


NTR 

CNST 
ACON 
ACON 


MVN 


NTR 
CNST 


BUN 


PAGE 


BRANCH IF SENSE SWITCH ON 


BRANCH ON UNEQUAL COMPARE 


BRANCH ON WORD MARK 


BRANCH UN WORD MARK UR ZONE 

THE B3500 CODE SHOWN IS THE MAXIMUM 

FOR A BRANCH ON WORD MARK OR ZONE 
COMBINATION, IF BRANCH ON WORD MARK 
ONLY THE BOTsEQL IS THE CODE. FOR 
BRANCH ON ZONE ONLY SDEsEQL IS PROVIDED 


COMPARE 

EXECUTED BY SUBROUTINE 

4 DIGITS SIZE OF A AND B 
A ADDRESS 

B ADDRESS 


CONTROL CARRIAGE 

IF CARRIAGE CONTROL ACTION IS IMMEDIATE 
THE NTR CODE IS GENERATED TD A SUBROUTINE 
WHICH SKIPS OR SPACES ACCORDING TO THE 
PARAMETERS PASSED, IF ACTION IS DELAYED» 
SKIP AND SPACE INFORMATION IS MOVED To THE 
PRINT SUBROUTINE TO CONTROL ACTION ON. THE 
NEXT WRITE COMMAND, BOTH SUBROUTINES 
SIMULATE END OF PAGE CCHANNEL 12). 


CARRIAGE CONTROL AND BRANCH 
CODE AS ABOVE BEFORE BUN 
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cs 


CW 


SW 


NOP 


SAR 


SBR 


$$ 


TR 


cs 

MVA 

BUN 
cw 

MVN 
SW 

MVN 
NOP 

NOP 
SAR 
SBR 

wat 
SS 

BUN 
T 


CLEAR STORAGE 

THE BRANCH IS INCLUDED ONLY IF THE 
BRANCH OPTION IS SPECIFIED IN THE 
INSTRUCTION 


CLEAR WORD MARK 

THE MOVE IS GENERATED ONLY IF THE 
CLEAR WORD MARK AFFECTS A SWITCHe 
OTHERWISE IT IS NOT NEEDED 


SET WORD MARK 
SAME AS CLEAR WORD MARK 


NO OPERATION 


STORE A*ADDRESS REGISTER 
NOT TRANSLATED 


STORE B"ADDRESS REGISTER 

SBR INSTRUCTIONS ARE TRANSLATED 

IN VARIOUS WAYS. IF SINGLE ADDRESS» IT IS 
NOT TRANSLATED, AND NOT NEEDED FOR LINKAGE 
SINCE LINKAGE IS ACCOMPLISHED IN ANOTHER WAY. 
IF TWO ADDRESS IT MAY BECOME EITHER A MOVE 

OF AN ADDRESS OR AN INC OR ADD TO AN INDEX 
REGISTERs 


SELECT STACKER 

THE STACKER SELECT PORTION OF THE COMMAND 
SELECT STACKER AND BRANCH 

IS NOT TRANSLATED. THIS WILL HAVE NO 
EFFECT ON THE PROGRAM BUT ONLY IN OFF LINE 
MEDIA HANDLING 


NOT TRANSLATED 


TRW 


MU 


LU 


cu 


RCB 


PCB 


WM 


WR 


RP 


MU 


LU 


cu 


WR 


RP 


kkk 


kkaetk 


Rees 


NTR 


WRIT 


WRIT 


WRIT 
NTR 


NTR 
WRIT 


PAGE 


MOVE UNIT 
TRANSLATION DEPENDS ON I= TYPE 


LOAD UNIT 
TRANSLATION DEPENDS ON IO TYPE 


CONTROL UNIT 
TRANSLATION DEPENDS ON IQ TYPE 


READ A CARD 
IF BRANCH OPTION A BRANCH IS SUPPLIED 


READ COLUMN BINARY 
NOT TRANSLATED = READ COLUMN BINARY 


PUNCH 
SEE READ 


PUNCH COLUMN BINARY 
NOT TRANSLATED = PUNCH COLUMN BINARY 


WRITE A LINE 
SEE READ 


WRITE WORD MARKS 


WRITE AND READ 
WRITE*READ 


READ AND PUNCH 
READ=PUNCH 
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RF 


WP 


WRF 


WRP 


SRF 


SPF 


BSP 


RT 


RTB 


P 
NTR 
we 
WRIT 
WRIT 
WP 
WRIT 
NTR 
WRP 
WRIT 
NTR 
WRIT 
SRF 
SPF 
cu 
Mu 
MVA 
READ 
MU 
MVA 
READ 


PAGE 
READ PUNCH FEED 
READ PUNCH FEED 


WRITE AND PUNCH 
WRITE*PUNCH 


WRITE AND READ PUNCH FEED 
WRITE AND READ PUNCH FEED 


WRITE» READ» AND PUNCH 
WRITE@READ@PUNCH 


START READ FEED 
NOT TRANSLATED = NOT NEEDED 


START PUNCH FEED 
THIS WILL SET A CARD IN MOTION 


BACKSPACE TAPE 
NOT TRANSLATED = THE PRIMARY USE OF 
THIS INSTRUCTION IS IN TAPE ERROR ROUTINES 


READ TAPE 
THE MOVE IS TO ANOTHER BUFFER SET UP 
BY THE TRANSLATORe THIS RELIEVES THE 
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MOD 4 REQUIREMENT WITHIN THE TRANSLATEO AREA 


AS WELL AS PROVIDING BUFFERED [#0 


READ TAPE BINARY 
BINARY IS SPECIFIED IN DECLARATION 
ALSO SEE RT 


RTW 


RWD 


RWD 


SKP 


WT 


WTB 


WTM 


WTW 


DISK 


LU 


cu 


CU 


CU 


MU 


MU 


Cy 


Lu 


MVA 
READ 


CLOS 


CLUS 


MVA 
WRIT 


MVA 
WRIT 


CLOS 


MVA 
WRIT 


PAGE 


READ TAPE WITH WORD MARKS 
LOAD MODE TAPES MUST BE CONVERTED 


ALSO SEE RT 


CONTROL UNIT 


REWIND TAPE 
CLOSE WITH LOCK 


SKIP AND BLANK TAPE 
NOT TRANSLATED = USED FOR ERROR 


WRITE TAPE 
SEE READ TAPE 


WRITE TAPE BINARY 
SEE READ TAPE BINARY 


WRITE TAPE MARK 
CLOSE REEL 
WRITE TAPE WITH WORD MARKS 


SEE READ WITH WORD MARKS 


ALL DISK COMMANDS TO BE DEFINED 
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